predict.cv.gcdclust <- function(object, newx, 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")
predict(object$gcdclust.fit, newx, s = lambda, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.