https://github.com/cran/robCompositions
Raw File
Tip revision: 2a6f9284202f9862cb54daa8db49984b29d252b8 authored by Matthias Templ on 18 January 2010, 16:01:45 UTC
version 1.3.3
Tip revision: 2a6f928
print.imp.R
print.imp <- function(x, ...){
  cat("\n --------------------------------------- \n")
  if( x$w > 1 ){
    print(paste(x$w, "missing vales were imputed"))
  } else{
    print(paste(x$w, "missing vale was imputed"))
  }

  if( length(x$criteria) > 0 ){
    if( x$iter > 1 ){
      print(paste(x$iter, "iterations were needed"))
    } else{
      print(paste(x$iter, "iteration was needed"))
    }
    print(paste("the last change was", round(x$criteria,4)))
  }
  cat(" --------------------------------------- \n")
}
back to top