Nothing
plot.extRC <-function(x, ...){
# preliminaries
out = x
# plot output
plot(out$la,out$dev,type="l",xlab="lambda",ylab="deviance")
}
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.