我在tmp目录中有一个.stat文件列表。
样品：
a.stat =>
abc,10
abc,20
abc,30
b.stat =>
xyz,10
xyz,30
xyz,70
等等
我需要找到所有.stat文件的摘要。目前我正在使用
filelist<-list.files(path="/tmp/",pattern=".stat")
data<-sapply(paste("/tmp/",filelist,sep=''), read.csv, header=FALSE)
但是，我需要对正在读取的所有文件应用摘要。或者只是在n个.stat文件中，我需要第二列的摘要
使用
data<-sapply(paste("/tmp/",filelist,sep=''), summary, read.csv, header=FALSE) 不起作用，并给我带有班级角色的摘要，这不是我想要的。
sapply(filelist, function(filename){df <- read.csv(filename, header=F);print(summary(df[,2]))})工作正常。但是，我的总体目标是找到两边（异常值）相差超过2个标准偏差的值。因此，我使用sd，但同时需要检查当前读取的文件中的所有值是否都在2SD范围内。