R/print.summary.fitmixture.R

In pldamixture: Post-Linkage Data Analysis Based on Mixture Modelling

#' @noRd
#' @export
print.summary.fitmixture <- function(x, digits = max(3L, getOption("digits") - 3L),
                                     signif.stars = getOption("show.signif.stars"),...){
  cat("Call:", sep="\n")
  print(x$call,quote=F)
  cat(" ", sep="\n")
  cat("Family:", x$family, " ", sep="\n")

  cat("Outcome Model Coefficients:", sep="\n")
  printCoefmat(x$coefficients,quote=F, digits = digits,
               signif.stars = signif.stars)
  cat(" ", sep="\n")

  if (x$family == "gamma"){
    cat("Dispersion: ", format(signif(as.numeric(x$dispersion), digits)))
    cat("\n")
    cat("\n")
  }

  if(x$family == "poisson" | x$family == "binomial"){
    cat("Dispersion: ", 1)
    cat("\n")
    cat("\n")
  }

  if (x$family == "gaussian"){
    cat("Dispersion:", sep="\n")
    printCoefmat(x$dispersion,
                 quote=F, digits = digits, has.Pvalue = FALSE)
    cat(" ", sep="\n")
  }

  cat("Correct Match Model Coefficients:", sep="\n")
  printCoefmat(x$m.coefficients,quote=F, digits = digits,
               signif.stars = signif.stars)
  cat(" ", sep="\n")

  cat("Average Correct Match Rate: ", format(signif(x$avgcmr, digits)))
  cat(" ", sep="\n")

  invisible(x)
}