# This is the script to split a .csv file into several smaller files which makes the search # much more efficnent # Tao Huan, 20150722 # Copy right @ University of Alberta ##################################################################### # This is the setting part data.path <- "F:/Data_Analysis/20140305MCID2manuscript/script/data/" #################################################################### setwd(data.path) file.order <- list.files(pattern = ".csv") for(i in 1:length(file.order)){ if(i == 1){ data <- read.csv(file.order[i]) } else { new.data <- read.csv(file.order[i]) new.data[,1] <- new.data[,1] - (i-1) * 100 data <- rbind(data, new.data) } } write.csv(data, file="combined search results.csv", row.names=FALSE)