R/RemoveZeroVar.R

RemoveZeroVar<-function(df,present){
  nzv=caret::nearZeroVar(df)
  df=df[,-nzv]
#write out the names of deleted vars
outd=df[,nzv]
write.csv(names(outd),paste(present,"/NZV_deleted.csv",sep=""))
  return(df)
}
AVJdataminer/Squeaky documentation built on May 22, 2019, 4:28 p.m.