R/print.humpfit.R

Defines functions `print.humpfit`

#' @importFrom stats family coef deviance df.residual
#' @export
`print.humpfit` <-
    function(x, ...)
{
    cat("\nHump-backed Null model of richness vs. productivity\n\n")
    cat("Family:", family(x)$family,"\n")
    cat("Link function: Fisher diversity\n\n")
    cat("Coefficients:\n\n")
    print(coef(x))
    cat("\nDeviance", deviance(x), "with", df.residual(x))
    cat(" residual degrees of freedom\n")
    invisible(x)
}
jarioksa/natto documentation built on March 28, 2024, 12:45 a.m.