R/print.R

In miceRanger: Multiple Imputation by Chained Equations with Random Forests

#'Print a \code{miceDefs} object
#' 
#'@rdname print
#'@param x Object of class \code{miceDefs}
#'@param ... required to use S3 method
#'@return \code{NULL}
#'@method print miceDefs
#'@export
print.miceDefs <- function(x,...) {
  m <- x$callParams$m
  maxiter <- x$callParams$maxiter
  imputationTime <- x$imputationTime
  cat("Class:          miceDefs\n")
  cat("Datasets:      ",m,"\n")
  cat("Iterations:    ",maxiter,"\n")
  cat("Total Seconds: ",imputationTime,"\n")
  cat("Imputed Cols:  ",length(x$callParams$vars),"\n")
  cat("Estimated Time per Additional Iteration is",round(imputationTime/maxiter),"Seconds","\n")
  cat("Estimated Time per Additional Dataset is",round(imputationTime/m),"Seconds","\n\n")
  cat("For additional metrics, see the different plotting functions.")
  invisible(x)
}

#' @export
print.impDefs <- function(x,...) {
  m <- x$callParams$datasets
  iterations <- x$callParams$iterations
  cat("Class:          impDefs\n")
  cat("Datasets:      ",m,"\n")
  cat("Iterations:    ",iterations,"\n")
  cat("Data Rows:     ",nrow(x$imputedData[[1]]),"\n")
  cat("Data Cols:     ",ncol(x$imputedData[[1]]),"\n")
  invisible(x)
}