Nothing
gcv.loss <-
function (pred.obj)
{
dev <- pred.obj$deviance
tr.H <- pred.obj$tr.H
nobs <- pred.obj$n.newobs
nobs * dev / ((nobs - tr.H)^2)
}
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.