R语言 获取异常数据

将异常数据提取出来统一放到一个CSV文件里。供后期分析用

errNum<-function()

{ hNum = nlevels(KA$H)

redata<-data.frame()

a <-data.frame()

for( i in 1:hNum)

{

data<-subset(KA,H==KA$H[i])

result =  boxplot.stats(data$Actual)$out

for (n in 1:length(result))

{

subdata <-subset(data,Actual== result[n])

a<-redata

redata<-rbind(a,subdata

)

}

}

write.csv(redata, file = "c:/myR/errNum.csv", row.names = F, quote = F)

}