Nothing
complexity.LASSO <- function(response, x, full.data, ...){
#requireNamespace(penalized)
prof <- penalized::profL1(response=response, penalized=x, trace=FALSE, ...)
lambda <- prof$lambda[which.max(prof$cvl)]
lambda
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.