In-Class Activity 8

Regression model to predict runs scored

RunsReg = lm(RS ~ OBP + SLG + BA, data=moneyball) summary(RunsReg)

RunsScored= -788.46+2917.42*(0.361)+1637.93*(0.409)-368.97*(0.257)
RunsScored

## [1] 839.8167

#Approximately 840 runs scored (Exercise 1)

Regression model to predict runs allowed

RunsAllowedReg = lm(RA ~ OOBP + OSLG, data=moneyball) summary(RunsAllowedReg)

RunsAllowed=-837.38+2913.60*(0.267)+1514.29*(0.392)
RunsAllowed

## [1] 534.1529

#Approximately 534 runs allowed