Final Exam Question 6

Consider the following vectors representing the number of three-pointers made and attempted by a basketball player in five games:

Three-Pointers Made: c(3, 5,0, 6, 3, 7) Three-Pointers Attempted: c(9, 10, 8,12, 11, 12)

Calculate the three-point shooting percentage for each game and select the correct average three-point shooting percentage for the five games.

# Three-pointers made and attempted
three_made <- c(3, 5, 0, 6, 3, 7)
three_attempted <- c(9, 10, 8, 12, 11, 12)

# Calculate 3P% per game
three_percentage <- (three_made / three_attempted) * 100

# Print percentages per game
print(three_percentage)

[1] 33.33333 50.00000  0.00000 50.00000 27.27273 58.33333

# Calculate average 3P%
average_three_percentage <- mean(three_percentage)
print(average_three_percentage)

[1] 36.4899