Three-Point Percentage Analysis

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

game_pct <- three_pm / three_pa * 100
game_pct

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

avg_of_game_pct <- mean(game_pct)
avg_of_game_pct

## [1] 40.51227

overall_pct <- sum(three_pm) / sum(three_pa) * 100
overall_pct

## [1] 42.16867

The per-game three-point percentages are 33.33, 50, 55.56, 50, 27.27, 58.33, 9.09.

The average of the individual per-game three-point percentages is 40.51%.

The overall (cumulative) three-point shooting percentage across all seven games is 42.17%.