R/summary.qtlRes.R

In GenomicTools: Collection of Tools for Genomic Data Analysis

summary.qtlRes <- function(object, ...){
  
  cat("QTL Summary\n")
  cat("---------------\n")
  cat("Type of test        :",object$method,"\n")
  cat("Tested phenotypes   :",length(object$qtl),"\n")
  invisible(object)
}