Nothing
select.glmnetcr <-
function(fit, which="BIC") {
x <- fit$x
method <- fit$method
predict.fit<-predict.glmnetcr(fit,newx=x,method=method)
if (c("BIC", "AIC")[charmatch(which, c("BIC","AIC"))] == "BIC") {which.min(predict.fit$BIC)}
else if (c("BIC", "AIC")[charmatch(which, c("BIC","AIC"))] == "AIC") {which.min(predict.fit$AIC)}
}
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.