R/replaceNA.R

In tim-scharf/binary: Aggressive Binary Classification with instance weighting

replaceNA <- function(DT,val = -999)
{
  Z <- copy(DT)
for (col in seq_along(Z)) set(Z, i=which(is.na(Z[[col]])), j=col, value=-999)
  return(Z)
  
}


replaceNA_med <- function(DT){
  Z <- copy(DT)
  for (col in seq_along(Z))  set(Z, i=which(is.na(Z[[col]])), j=col, value= median(Z[[col]],na.rm = T))
  return(Z)
  
  
  
}