Nothing
residuals.liu <- function(object, ...) {
y <- object$y
lfitted <- object$lfit
resid <- apply(lfitted, 2, function(x) {
y - x
})
#class(resid)<-"liuresid"
resid
}
# print.residuals <- function(x, ...) {
# cat("Call:\n", paste(deparse(x$call), sep = "\n", collapse = "\n"), "\n\n", sep =
# "")
#
# print(resid(x), ...)
# cat("\n")
# 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.