Nothing
model.select <-
function(object,which="BIC") {
summary.glmpath<-summary(object)
if (c("BIC","AIC")[charmatch(which,c("BIC","AIC"))]=="BIC") {
min<-which.min(summary.glmpath[,which])
}
if (c("BIC","AIC")[charmatch(which,c("BIC","AIC"))]=="AIC") {
min<-which.min(summary.glmpath[,which])
}
best<-as.numeric(gsub("Step ","",rownames(summary.glmpath)[min]))
best
}
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.