R/allna_omit.r

allna.omit <- function(data){
data = data[rowSums(is.na(data))!=ncol(data),]
data=data[,unlist(lapply(data,function(x){!all(is.na(x))}))]
return(data)
}
palderman/dssatR documentation built on May 24, 2019, 5:59 p.m.