AE 07: Price of Textbooks cont’d

SLR: Partitioning variability

Class announcements

• See this week’s schedule: Week 04
  • Lab 03 due Sun, Feb 14 at 11:59p
  • HW 02 due Wed Feb 17 at 11:59p. Repos available after class

Normal QQ plots

library(tidyverse)
library(patchwork)

set.seed(1234)
norm_data <- tibble(x = rnorm(1000,0,1))
norm_hist <- ggplot(data = norm_data, aes(x = x)) + 
  geom_histogram()

norm_qq <- ggplot(data = norm_data, aes(sample = x)) + 
  stat_qq() + stat_qq_line()

right_data <- tibble(x = rbeta(1000, 2, 8))
right_hist <- ggplot(data = right_data, aes(x = x)) + 
  geom_histogram()
right_qq <- ggplot(data = right_data, aes(sample = x)) + 
  stat_qq() + stat_qq_line()

left_data <- tibble(x = rbeta(1000,8,2))
left_hist <- ggplot(data = left_data, aes(x = x)) + 
  geom_histogram()
left_qq <- ggplot(data = left_data, aes(sample = x)) + 
  stat_qq() + stat_qq_line()

(norm_hist + norm_qq) / (right_hist + right_qq) / (left_hist + left_qq)

Questions from video

AE 07: Price of textbooks

Clone the ae-07 repo and open a new project in RStudio. Be sure to push your work periodically as you complete the AE.

Go the breakout room for your lab group.