Nothing
residuals.lmRob <- function(object, ...)
{
oldClass(object) <- "lm"
residuals(object, ...)
}
deviance.lm <- function (object, ...)
{
oldClass(object) <- "lm"
deviance(object, ...)
}
model.matrix.lmRob <- function(object, ...)
{
oldClass(object) <- "lm"
model.matrix(object, ...)
}
model.frame.lmRob <- function(formula, ...)
{
oldClass(formula) <- "lm"
model.frame(formula, ...)
}
print.lmRob <- function(x, ...)
{
oldClass(x) <- "lm"
print(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.