Data Wrangling Part of Week-11 Assignment

R Markdown

library(Lahman)
library(dplyr)
library(magrittr)
Teams.new <- Teams %>%
  mutate(WP = W/G, 
         PWP = R^2/(R^2 + RA^2),
         RD = R - RA
         )
Season18 <-  Teams.new %>% filter(yearID == 2018)
Season19 <-  Teams.new %>% filter(yearID == 2019)
Season20 <-  Teams.new %>% filter(yearID == 2020)