Graduate Class for 11/18/2020

grad_class_mean_sd.R

## Grab the data here: 
pop <- read.csv("https://raw.githubusercontent.com/ryanburge/pls2003_sp17/master/population.csv") %>% 
  mutate(height = round(height, 1)) %>% 
  mutate(weight = round(weight, 1))


### More data here: 
bball <- read_csv("https://raw.githubusercontent.com/ryanburge/pls2003_sp17/master/bball.csv", guess_max = 25000)
bball <- bball %>% 
  rename(games = g, wins =w, losses = l, runs =r, atbats = ab, hits =h, homeruns =hr, walks = bb, strikeout = so, stolenbase = sb, earnedruns = era)