将异常数据提取出来统一放到一个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)
}