R/na.mean.R

In DexGroves/glmnet: Lasso and Elastic-Net Regularized Generalized Linear Models

Defines functions na.mean

Documented in na.mean

na.mean=function(x){
  ### replace missing entries with mean for that column.
  namean=function(x){
    nas=is.na(x)
    if(any(nas))  x[nas]=mean(x,na.rm=TRUE)
    x
  }
  apply(x,2,namean)
}