##Read files named xyz1111.csv, xyz2222.csv, etc.
filenames <- list.files(path="../Data/original_data", pattern="xyz+.*csv")
##Create list of data frame names without the ".csv" part
names <-substr(filenames,1,7))
###Load all files
for(i in names){ filepath <- file.path("../Data/original_data/",paste(i,".csv",sep="")) assign(i, read.delim(filepath, colClasses=c("character","factor",rep("numeric",4)), sep = "\t")) }