# NOT RUN {
library(ggplot2)
library(broom)
ggplot(elmhurst, aes(x = family_income, y = gift_aid)) +
geom_point() +
geom_smooth(method = "lm")
mod <- lm(gift_aid ~ family_income, data = elmhurst)
tidy(mod)
# }
Run the code above in your browser using DataLab