Week-3 Assignment

R Markdown

In this assignment, we have 3 questions and 1 bonus question.

# Week-3 Assignment

# Q1

library(Lahman)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(magrittr)

#Q1
head(Pitching)

#Q2a
Q2a <- filter(Pitching, SHO >= 12)

#Q2b
Q2b <- filter(Pitching, SHO >= 12 & ERA <= 2)
Q2b

#Q3
Q3a <- slice(Pitching, 40:50)
Q3a

Q3b <- Q3a %>% select(playerID, SHO, ERA)
Q3b

Q3c <- Q3a %>% mutate(SOBB = SO/BB) %>% select(playerID, SHO, ERA, SOBB)
Q3c

Q3d <- Q3a %>% mutate(SOBB = SO/BB) %>% select(playerID, SHO, ERA, SOBB)
Q3d

#BQ
head(Teams)

Teams.new <- Teams %>% mutate(WP_BPT = R^2/(R^2 + RA^2), WP = W/G, Diff = WP_BPT - WP)
S15 <- filter(Teams.new, yearID == 2015)
S15

S16 <- filter(Teams.new, yearID == 2016)
S16