Nothing
print.penalty <-
function (x, ...)
{
cat (paste ("\nPenalty = ", x$penalty, " (lambda = ", x$lambda, ")\n", sep = ""))
invisible (x)
}
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.