Nothing
plot.cv.SGL = function(x,...){
cvobj = x
xlab = "log(Lambda)"
ylab = "CV Negative Log Likelihood"
cvUp <- cvobj$lldiff + cvobj$llSD
cvDn <- cvobj$lldiff - cvobj$llSD
plot.args = list(x=log(cvobj$lambdas), y = cvobj$lldiff, xlab = xlab, ylab = ylab, ylim = range(cvUp, cvDn))
do.call("plot", plot.args)
error.bars(log(cvobj$lambdas), cvUp, cvDn, width = 0.01, col ="darkgrey")
points(log(cvobj$lambdas),cvobj$lldiff,pch=20,col="red")
}
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.