Activity 14

Question Consider the following vectors representing the number of three-pointers made and attempted by a basketball player in five games: Three-Pointers Made: c(4, 5, 3, 6, 7) Three-Pointers Attempted: c(9, 10, 8, 11, 12) Calculate the three-point shooting percentage for each game and select the correct average three-point shooting percentage for the five games.

# Create three point made vector
TPM <- c(4, 5, 3, 6, 7)

# Create three point attempts vector
TPA <- c(9, 10, 8, 11, 12)

avg_game <- round(TPM/TPA, 3)
avg_game

[1] 0.444 0.500 0.375 0.545 0.583

overall_avg<-round(mean(avg_game),2)
overall_avg

[1] 0.49

avg_total<-round(sum(TPM)/sum(TPA),3)
avg_total

[1] 0.5

NOTE overall_avg (\(0.49\) / \(49\%\)): Represents the unweighted average of the per-game percentages. It treats a game with 8 attempts the same as a game with 12 attempts.avg_total (\(0.50\) / \(50\%\)): Represents the true cumulative shooting percentage. It weights each attempt equally, making it the standard metric for sports analytics.