Revision 4f2efb4ed8831a90968ef063d2403d675c84dae3 authored by Matthias Templ on 26 November 2013, 12:55:44 UTC, committed by cran-robot on 26 November 2013, 12:55:44 UTC
1 parent 2ad963b
impAll.R
impAll <-
function(x) {
maxLimits = apply(x, 2, min, na.rm = TRUE)
maxLimits = -maxLimits
maxLimits[maxLimits < 0] = 0
if(any(is.na(x))) {
temp <- x
for(i in 1:length(maxLimits)) {
temp[na.omit(temp[i]) < 0, i] = maxLimits[i] * 2 / 3
}
res <- adjust(impCoda(temp))
isna = is.na(x)
x[isna] = res$xImp[isna]
}
if(any(x < 0)) {
temp <- x
temp[temp < 0] = 0
res <- impRZilr(temp, dl=maxLimits)
x = res$xImp
}
return(x)
}
Computing file changes ...