R/print.crps.R

Defines functions print.crps

##' @export
print.crps <- function(x,digits=3,...){
  cat("\nIntegrated Brier score (crps):\n\n")
  if (is.list(x))
    print.listof(x,digits=digits,...)
  else
    prmatrix(round(x,digits=3),...)
}
tagteam/pec documentation built on April 25, 2023, 12:03 a.m.