R/print.summary.multipleOutcomes.R

In multipleOutcomes: Asymptotic Covariance Matrix of Regression Models for Multiple Outcomes

#' Title Summarize an Analysis of Multiple Outcomes.
#' @description
#' Summarize an analysis of multiple outcomes. 
#' 
#' @param x an object returned by `multipleOutcomes()`.
#' @param ... for debugging only.
#'
#' @return an invisible object.
#' @export
#'
#' @examples
#' ## no example
print.summary.multipleOutcomes <- function(x, ...){

  cat('Call:\n')
  print(x$call)
  cat('\n')

  cat('Coefficients:\n')
  printCoefmat(x$coefficients, P.values = TRUE, has.Pvalue = TRUE)

}