Nothing
cv.elnet <-function(predmat,y,type.measure,weights,foldid,grouped){
N = length(y) - apply(is.na(predmat), 2, sum)
cvraw = switch(type.measure,
mse = (y - predmat)^2,
deviance = (y - predmat)^2,
mae = abs(y - predmat))
list(cvraw=cvraw,weights=weights,N=N,type.measure=type.measure,grouped=grouped)
}
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.