R/printMethods.R

In missRows: Handling Missing Individuals in Multi-Omics Data Integration

##- print method for missPattern ----------------------------------------------#
##-----------------------------------------------------------------------------#
print.missPattern <- function(x, ...) {
    
    cat("Number of missing/available individuals in ")
    cat("each stratum per data table.\n")
    cat("Tables:\n")
    print(x$nbMissing)
}


##- print method for tuneM ----------------------------------------------------#
##-----------------------------------------------------------------------------#
print.tuneM <- function(x, ...) {
    
    print(x$stats)
}