#' @title summary_deviance
#' @description unknown
#' @family abysmally documented
#' @author unknown, \email{<unknown>@@dfo-mpo.gc.ca}
#' @export
summary_deviance = function( M ) {
deviance = M$null.deviance-M$deviance
df = M$df.null-M$df.residual
p = dchisq( deviance, df )
list(
deviance = deviance,
df = df,
p = p,
logLik = logLik( M )
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.