coef.cv.lrome <- function(object, s = c("lambda.1se",
"lambda.min"), ...) {
if (is.numeric(s))
lambda <- s else if (is.character(s)) {
s <- match.arg(s)
lambda <- object[[s]]
} else stop("Invalid form for s")
coef(object$lrome.fit, s = lambda, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.