R语言作业 合并文件

code
#先将默认目录设置到specdata下
files.name=list.files(pattern="csv");#读入目录下所有csv文件
files.length=length(files.name);#文件数，按题意为332
newdata=numeric(0);#用于存放所有sulfate数据
for(i in 1:files.length){
tmp=read.csv(a[i],head=T,sep=",");#csv文件一个个的读取
newdata=rbind(newdata,tmp[,2]);}#每个文件的第2列，也就是sulfate数据，按行合并
m=mean(newdata)#计算结果

#先将默认目录设置到specdata下
files.name=list.files(pattern="csv");#读入目录下所有csv文件
files.length=length(files.name);#文件数，按题意为332
newdata=numeric(0);#用于存放所有sulfate数据
for(i in 1:files.length){
tmp=read.csv(a[i],head=T,sep=",");#csv文件一个个的读取
newdata=rbind(newdata,tmp[,2]);}#每个文件的第2列，也就是sulfate数据，按行合并
m=mean(newdata)#计算结果