recover_betas <- function(mod) {
nms <- names(mod$coefficients)
nms_drop <- c("log(scale)", "log(shape)")
sel <- setdiff(nms, nms_drop)
if (length(sel)) as.list(mod$coefficients[sel]) else NULL
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.