#' @export
degrees_of_freedom.serp <- function(model, method = "normal", ...) {
if (is.null(method)) {
method <- "wald"
}
method <- match.arg(tolower(method), choices = c("analytical", "any", "fit", "wald", "residual", "normal"))
if (method %in% c("residual", "fit")) {
model$rdf
} else {
degrees_of_freedom.default(model, method = method, ...)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.