Nothing
# $Id: residplot.R 1012 2006-11-14 22:25:06Z ggorjan $
residplot <- function(model, formula, ...)
{
data <- expand.model.frame( model, formula, na.expand=TRUE)
newform <- eval(parse( text=paste("as.call(", "resid(model) ~",
formula[-1],")" )))
plot( newform, data=data, ylab="Residuals")
lines(lowess( newform, data=data ), col="red")
bandplot(newform,data=data)
}
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.