Nothing
modelErrors <- function(Model)
{
cat(sprintf('Sum of Squared Errors (SSE): %.2f\n\n', sum(residuals(Model)^2)), sep='')
print(residuals(Model))
invisible(residuals(Model))
}
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.