#T11: lecture notes

Lecture notes and solutions to the exercises of session 11 and 12 on linear models

t11-exercise-1.R

here::i_am("R/lm-exercise.R") # Adjust to position of your file
library(dplyr)
library(skimr)
library(moderndive)
library(ggplot2)

beer_data <- DataScienceExercises::beer
dplyr::glimpse(beer_data)
skim(beer_data)

beer_inc_plot <- ggplot(
  data = beer_data,
  mapping = aes(y = consumption, x = income)
  ) +
  geom_point() +
  geom_smooth(method = "lm") +
  theme_bw()
beer_inc_plot

beer_lm <- lm(formula = consumption~income, data = beer_data)

moderndive::get_regression_table(beer_lm)