#' @importFrom graphics plot
#' @export
plot.Regression <- function(x, which = 1, ...)
{
checkAcceptableModel(x, c("lm", "glm"),"This plot")
plot(x$original, which = which, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.