R/modelErrors.R

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

Try the lmSupport package in your browser

Any scripts or data that you put into this service are public.

lmSupport documentation built on May 2, 2019, 2:14 p.m.