In-Class Activity # 7

#Linear regression model notes #Regression model used to predict wins #WinsReg = lm(W ~ RD, data=moneyball) #summary(WinsReg)

#calculating the run difference 
763-614

## [1] 149

#using regression model to calculate # of wins # winning = 80.88

wins= 80.88+0.105766*(149)
wins

## [1] 96.63913

#The team would win approximately 97 games