flatr.Rcheck/00_pkg_src/flatr/R/print_ct_goodness_of_fit.R

In EvilGRAHAM/flatr: Transforms Contingency Tables to Data Frames, and Analyses Them

#' Print method for goodness_of_fit()
#'
#' Creates a nice looking output for the goodness_of_fit() function
#'
#' @param x A list
#'
#' @param ... Further arguments passed to or from other methods.
#'
#' @export
print.ct_goodness_of_fit <- function(x, ...){
  cat("\n")
  cat(x$test, "Goodness of Fit Test", "\n\n")
  cat("model:", x$model, "\n")
  cat(x$test, "=", round(x$statistic, 5))
  cat(",", "df =", x$df)
  cat(",", "p-value =", if_else(x$p.value <= 2.2 * 10^(-16), "< 2.2e-16", as.character(round(x$p.value, 5))))
}