R/roc_glm_print.R

In difuture-lmu/dsBinVal: ROC and Calibration Analysis for DataSHIELD

#' @title Printer for ROC-GLM
#' @description This function provides a printer for the ROC-GLM object returned from `dsROCGLM`.
#' @param x (`list()`) List containing the ROC-GLM parameter returned from `dsROCGLM`.
#' @param ... Additional parameters (basically none, but CRAN forces us to do this in print).
#' @author Daniel S.
#' @export
print.ROC.GLM = function(x, ...) {

  if (! inherits(x, "ROC.GLM"))
    stop("x must be of class ROC.GLM")

  roc_glm = x
  cat("\n",
    "ROC-GLM after Pepe:",
    "\n",
    "\n",
    "\tBinormal form: pnorm(",
    round(roc_glm$parameter[1], 2),
    " + ",
    round(roc_glm$parameter[2], 2),
    "*qnorm(t))",
    "\n",
    "\n",
    "\tAUC and ", 1 - roc_glm$alpha,
    " CI: [",
    round(roc_glm$ci[1], 2),
    "----",
    round(roc_glm$auc, 2),
    "----",
    round(roc_glm$ci[2], 2), "]",
    "\n",
    sep = "")

  return(invisible(x))
}