library(tidyverse) library(broom) library(Lahman) Teams_small % filter(yearID %in% 1961:2001) %>% mutate(avg_attendance = attendance/G) Use number of wins to predict average attendance; do not normalize for number

library(tidyverse)

library(broom)

library(Lahman)

Teams_small <- Teams %>%

filter(yearID %in% 1961:2001) %>%

mutate(avg_attendance = attendance/G)

Use number of wins to predict average attendance; do not normalize for number of games.

For every game won in a season, how much does average attendance increase?