####去除缺失值的那一行
e=c(1,NA,2,2,2,2,NA,2)
f=c(NA,2,3,5,2,6,NA,6)
g=c(2,5,8,6,3,NA,NA,6)
data=data.frame(e,f,g)
##得到缺失行
a=c(0)
for(i in 1:dim(data)[2]){
c=which(is.na(data[,i])==TRUE)
a=c(a,c)
}
###去除重复行
index<-duplicated(a)
b=a[!index]
data[-b,]