inst/shiny/LCBCshiny/subscripts/devel/na.col.rm.R

na.col.rm = function(DATA){
  
  NaNidx = apply(DATA,2,function(x) all(is.na(x)))
  DATA = DATA[,(1:ncol(DATA))[!NaNidx]]
  
  return(DATA)
}
LCBC-UiO/MOAS documentation built on Aug. 28, 2023, 3:29 a.m.