# # This script merges ouput tables from cellProfiler using the "ImageNumber" # # here you set the path and fileName path ="M:/HCS_Porto/output/" image_file = "MyExpt_Image.csv" nuclei_file = "MyExpt_Cytoplasm.csv" # Load data from the defined path and filename image_table <- read.csv( paste(path,image_file ,sep=""),sep=",") nuclei_table<- read.csv( paste(path,nuclei_file,sep=""),sep=",") full_table <- merge(image_table,nuclei_table,by="ImageNumber") csvFile <- sprintf("%sFull_table_Cytoplasm.csv", path ) write.csv(full_table, file=csvFile)