coef.cv.hierbasis <- function(cv.mod, lam.idx = c("lambda.1se", "lambda.min")) {
if (is.character(lam.idx)) {
lam.idx <- cv.mod[[paste0(match.arg(lam.idx), ".idx")]]
}
coef(cv.mod$model.fit, lam.idx)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.