In-class activity #7: Predicting the Number of Wins

If a baseball team scores 763 runs and allows 614 runs, how many games do we expect the team to win? Using the linear regression model constructed during the lecture, enter the number of games we expect the team to win:

# Load the dataset
baseball <- read.csv("baseball.csv")

# Build a linear regression model to predict Wins (W) using RS and RA
model_wins <- lm(W ~ RS + RA, data = baseball)

# Create new data with RS = 763 and RA = 614
new_team <- data.frame(RS = 763, RA = 614)

# Predict number of wins
predicted_wins <- predict(model_wins, newdata = new_team)
print(paste("Predicted number of wins:", round(predicted_wins)))