Run the following linear regression was run to predict Wins…
Run the following linear regression was run to predict Wins in the MLB from 2015-2024 (sans 2020) based on the following statistics: OPS: On-base percentage + Slugging percentage WHIP: Walks + hits given up per inning pitched (You can copy this code directly into your R session–and should have done so prior to the quiz) teams %filter(yearID >= 2015, yearID !=2020) %>%mutate(OBP = (H + BB + HBP)/(AB + BB + HBP + SF),SLG = (H + X2B + 2 * X3B + 3 * HR)/AB,OPS = OBP + SLG,WHIP = (BBA + HA)/(IPouts/3)) lm(W ~ OPS + WHIP, teams) %>%summary() What proportion of variability in wins is explained by the model (i.e., how much variation in wins is explained by those two statistics? Report your answer to 4 decimal places (I will accept 2 different answers)