Activity7

# Read in data
baseball <- read.csv("baseball.csv")

# Model built in lecture: WinsReg <- lm(W ~ RD, data = moneyball)
# W = 80.881 + 0.105766 * (RS - RA)

RS <- 763
RA <- 614
RD <- RS - RA

Wins <- 80.881375 + 0.105766 * RD
Wins=round(Wins,digits = 1)
Wins

[1] 96.6

≈ 96.6 → about 97 games expected to win.