coef.glmnetcr <- function(object,s, ...) { list(a0=object$a0[s],beta=object$beta[,s]) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.