https://github.com/cran/robCompositions
Tip revision: 70b4fa6067bde4e490c102c017ec89d6bf2408c4 authored by Matthias Templ on 08 May 2009, 11:22:02 UTC
version 1.2.2
version 1.2.2
Tip revision: 70b4fa6
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")
}