在實際應(yīng)用中經(jīng)常會用到剔除離群值的情況添谊，本文提供箱線法剔除離群值的方法骄瓣，僅限參考：
library(grid)
library(DMwR)
#setwd("C:/Users/Administrator.WIN7-1607161609/Desktop")
data<-read.csv("test.csv",header = T)
colnames<-colnames(data)
{
x<-data[,i]
x<-na.omit(x)
rnub<-c(1:length(x))
out1 <- boxplot.stats(x)
out <- boxplot.stats(x)$out
#boxplot(x)
#out.point <- matrix(c(which(x %in% out), x[which(x %in% out)]), ncol = 2)
outlier<-c(which(x %in% out))
row_without<-setdiff(rnub,outlier)
y<-as.matrix(x[row_without])
colnames(y)<-colnames[i]
filenames<-paste0(as.character(colnames[i]),"without_outlier",".csv")
write.csv(y,filenames,quote=F,row.names = F)
}
