Sports Analytics Summer 2026 Exam 2 Answers

Question 5

fg_made <- c(18, 7, 6, 9, 10, 13)
fg_attempted <- c(36, 23, 12, 18, 24, 22)

fg_per_game <- (fg_made / fg_attempted) * 100
fg_per_game

[1] 50.00000 30.43478 50.00000 50.00000 41.66667 59.09091

The field goal percentage for each game is 50%, 30.43%, 50%, 50%, 41.67% amd 59.09%.

#field goal average percentage
fg_per_mean <- mean(fg_per_game)
fg_per_mean

[1] 46.86539

The average field goal percentage for the six games is 46.87%.

Question 6

three_p_made <- c(3, 5, 10, 6, 3, 7, 1)
three_p_attempt <- c(9, 10, 18, 12, 11, 12, 11)

#three point percentage per game
three_p_avg_game <- (three_p_made / three_p_attempt) * 100
three_p_avg_game

[1] 33.333333 50.000000 55.555556 50.000000
[5] 27.272727 58.333333  9.090909

#three point percentage per game average
mean_three_per_game <- mean(three_p_avg_game)
mean_three_per_game

[1] 40.51227

Average three point percentage per game is 40.51%.

#overall (cumulative) three point percentage
overall_three_per <- (sum(three_p_made) / sum(three_p_attempt)) * 100
overall_three_per

[1] 42.16867

Overall three point percentage is 42.17%.

Question 7

#data
PlayerID <- c(1, 2, 3, 4, 5)
Hits <- c(112, 124, 121, 106, 140)
At_Bats <- c(400, 450, 380, 500, 402)
BB <- c(50, 60, 19, 150, 55)

OBP <- (Hits + BB) / (At_Bats + BB)
OBP

[1] 0.3600000 0.3607843 0.3508772 0.3938462 0.4266958

Player 5 has the highest OBP of 0.4266958 or 42.67%.