Nothing
residuals.expectreg <-
function (object, ...)
{
fit.res = object$response - object$fitted
val.res = list()
for(i in 1:length(object$values))
val.res[[i]] = object$response - object$values[[i]]
list("fitted"=fit.res,"values"=val.res)
}
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.