R/ce.impute.R

In dprep: Data Pre-Processing and Visualization Functions for Classification

ce.impute <-
function (data, method = c("mean", "median", "knn"), atr, nomatr = rep(0, 
    0), k1 = 10) 
{#Fixed by Edgar Acuna, september 2015
    if (method == "mean") 
        data.impute = ce.mimp(data, method, atr, nomatr)
    else if (method == "median") 
        data.impute = ce.mimp(data, method, atr, nomatr)
    else data.impute = ec.knnimp(data, nomatr, k1)
return(data.impute)
}