R/summary.mdr.R

In fischuu/GenomicTools: Collection of Tools for Genomic Data Analysis

summary.mdr <- function(object, ...){
  
  mdr <- object$mdr

  cat("MDR Summary\n")
  cat("---------------\n")
  cat("Order of SNP models      :",object$fold,"\n")
  cat("# of tested variables    :",dim(object$X)[2],"\n")
  cat("# of tested combinations :",prettyNum(dim(object$X)[2]^object$fold,big.mark = ","),"\n")
  cat("# of used observations   :",dim(object$X)[1],"\n")
  
  invisible(object)
}