è¾å
¥é误ï¼ä½ æä¹ä¹çä¸åºæ¥ãããã
#å
å°é»è®¤ç®å½è®¾ç½®å°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(files.name[i],header=T,sep=",");#csvæ件ä¸ä¸ªä¸ªç读å
newdata=rbind(newdata,tmp[,2]);}#æ¯ä¸ªæ件ç第2åï¼ä¹å°±æ¯sulfateæ°æ®ï¼æè¡å并
m=mean(newdata)#计ç®ç»ææ¥èªï¼æ±å©å¾å°çåç
温馨提示:答案为网友推荐,仅供参考