Using the answer here [ Import multiple files and index them ]
a list of files with the extension .csv - this assumes that the only .csv files in your working directory are the ones you want to read
files <- list.files(pattern = '\\.csv')
read files to list - are there any headers?
tables <- lapply(files, read.csv, header = TRUE)
rbind files
combined.df <- do.call(rbind , tables)
- ,
s <- sapply(combined.df, is.numeric)
colMeans(combined.df[s])