library(datasets)
library(stats)
data(airquality)
fit <- lm(Ozone ~ Wind + Temp + Solar.R, data = airquality)
summary(fit)
## Plot some diagnostics
par(mfrow = c(2, 2))
plot(fit)
## Interesting non-linear relationship
temp <- airquality$Temp
ozone <- airquality$Ozone
par(mfrow = c(1, 1))
plot(temp, ozone)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.