https://github.com/cran/robCompositions
Tip revision: 4f2efb4ed8831a90968ef063d2403d675c84dae3 authored by Matthias Templ on 26 November 2013, 12:55:44 UTC
version 1.6.4
version 1.6.4
Tip revision: 4f2efb4
summary.imp.R
summary.imp <- function(object, ...){
geometricmean <- function (x) {
if (any(na.omit(x == 0)))
0
else exp(mean(log(unclass(x)[is.finite(x) & x > 0])))
}
gm <- apply(object$xOrig, 2, function(x) {
geometricmean(as.numeric(x[complete.cases(x)]))
})
gmI <- apply(object$xImp, 2, function(x) {
geometricmean(as.numeric(x[complete.cases(x)])) ## gewichten!
})
d <- data.frame(orig=gm,
imp=gmI)
cat("\n geometric mean of the original data and the imputed data: \n")
## Einfluss der Imputation mittels bootstrap schaetzen
## laut script sim
d
}