Activity 14

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.

# Three-Pointers Made
threePts_made <- c(4, 5, 3, 6, 7)
# Three-Pointers Attempted
threePts_attempted <- c(9, 10, 8, 11, 12)

get the percentage for each game

threePts_percentage <- (threePts_made / threePts_attempted) * 100
threePts_percentage

[1] 44.44444 50.00000 37.50000 54.54545 58.33333

The three-point shooting percentage for each game is:

game 1: 44.44%

game 2: 50.00%

game 3: 37.50%

game 4: 54.55%

game 5: 58.33%

for each game, the percentage is:

# Game 1: 44.44%
# Game 2: 50.00%
# Game 3: 37.50%
# Game 4: 54.55%
# Game 5: 58.33%
# Average: 48.96%
average_percentage <- mean(threePts_percentage)
average_percentage

[1] 48.96465

The average three-point shooting percentage for the five games is 48.96%