https://github.com/cran/robCompositions
Raw File
Tip revision: b075661d51a7a1ee9b00d94017b8a6be03730ba4 authored by Matthias Templ on 29 April 2009, 00:00:00 UTC
version 1.2.2
Tip revision: b075661
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(x[complete.cases(x)])
})
gmI <- apply(object$xImp, 2, function(x) {
  geometricmean(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
}
back to top