Nothing
## ----global_options, include=FALSE, eval=FALSE--------------------------------
# library(knitr)
# opts_chunk$set(fig.width=8, fig.height=6, fig.path='figures/lm-', warning=FALSE)
## ---- message = FALSE, fig.width = 5, fig.height = 5, eval=FALSE--------------
# library(ggfortify)
# autoplot(lm(Petal.Width ~ Petal.Length, data = iris), label.size = 3)
## ---- message = FALSE, fig.width = 7, fig.height = 5, eval=FALSE--------------
# par(mfrow = c(1, 2))
# m <- lm(Petal.Width ~ Petal.Length, data = iris)
#
# autoplot(m, which = 1:6, ncol = 3, label.size = 3)
## ---- message = FALSE, fig.width = 5, fig.height = 6, eval=FALSE--------------
# m <- glm(Murder ~ Assault + UrbanPop + Rape,
# family = gaussian, data = USArrests)
#
# autoplot(m, which = 1:6, label.size = 3)
## ---- message = FALSE, fig.width = 5, fig.height = 5, eval=FALSE--------------
# class(autoplot(m))
# autoplot(m, label.size = 3) + theme_bw()
## ---- message = FALSE, fig.width = 8, fig.height = 5, eval=FALSE--------------
# autoplot(m, which = 1:6, colour = 'dodgerblue3',
# smooth.colour = 'black', smooth.linetype = 'dashed',
# ad.colour = 'blue',
# label.size = 3, label.n = 5, label.colour = 'blue',
# ncol = 3)
## ---- message = FALSE, fig.width = 8, fig.height = 5, eval=FALSE--------------
# autoplot(lm(Petal.Width ~ Petal.Length, data = iris), data = iris,
# colour = 'Species', label.size = 3)
## ---- message = FALSE, fig.width = 5, fig.height = 3, eval=FALSE--------------
# library(glmnet)
# data(QuickStartExample)
# fit <- glmnet::glmnet(x, y)
# autoplot(fit)
#
# fit <- glmnet::cv.glmnet(x, y)
# autoplot(fit, colour = 'blue')
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.