Final Exam Question #5

Consider the following vectors representing the number of field goals made and attempted by a basketball player in five games:

Field Goals Made: c(18, 7, 6, 9, 10,13) Field Goals Attempted: c(36, 23, 12, 18, 24,22)

Calculate the field goal percentage for each game and select the correct average field goal percentage for the five games.

# Field goals made and attempted
fg_made <- c(18, 7, 6, 9, 10, 13)
fg_attempted <- c(36, 23, 12, 18, 24, 22)

# Calculate field goal percentage per game
fg_percentage <- (fg_made / fg_attempted) * 100

# Print percentages per game
print(fg_percentage)

[1] 50.00000 30.43478 50.00000 50.00000 41.66667 59.09091

# Calculate average field goal percentage across all games
average_fg_percentage <- mean(fg_percentage)
print(average_fg_percentage)

[1] 46.86539