Nothing
plot.glmRob <- function(x, which.plots = c(2, 5, 7, 6), ...)
{
fm <- fit.models(x)
names(fm) <- deparse(substitute(x))
plot.glmfm(fm, which.plots = which.plots, ...)
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.