Nothing
# This function has been imported from stats.plot.lm()
dropInf <- function(x, h) {
if (any(isInf <- h >= 1)) {
warning(gettextf("Not plotting observations with leverage one:\n %s",
paste(which(isInf), collapse = ", ")),
call. = FALSE,
domain = NA)
x[isInf] <- NaN
}
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.