R/print.nnmi.R

In NNMIS: Nearest Neighbor Based Multiple Imputation for Survival Data with Missing Covariates

#' Print function for object of 'nnmi' class.
#'
#' @param x a 'nnmi' object
#' @param ... further arguments passed to function
#'
#' @export

print.nnmi <- function(x, ...)
{
  cat("\n------------\n")
  cat("  NNMIS\n")
  cat("------------\n")

  cat("Parameters:\n")
  cat("\tNumber of imputation:",x$MI,"\n")
  cat("\tNumber of nearst neighbours considered for imputing missing covariate:", x$NN, "\n")
  cat("\tWeight in the working model1:", x$w1, "\n")
  cat("\tWeight in the working model2:", x$w2, "\n")
  cat("\tDistribution family used in working model2:", x$mfamily, "\n")

  if(x$imputeCT){
    cat("\tNumber of nearst neighbours considered for imputing censoring time:", x$NN.t, "\n")
  }

  cat("\tNumber of cpu cores were used:", x$mc.cores, "\n")

  cat("\n")

}