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(8, 7, 6, 9, 10) Field Goals Attempted: c(15, 12, 18, 14, 13)
Calculate the field goal percentage for each game and select the correct average field goal percentage for the five games.
#Defining Field_Goals_Made vector
Field_Goals_Made <- c(8, 7, 6, 9, 10)
Field_Goals_Made
## [1] 8 7 6 9 10
#Defining Field_Goals_Attempted vector
Field_Goals_Attempted <- c(15, 12, 18, 14, 13)
Field_Goals_Attempted
## [1] 15 12 18 14 13
#calculate the field goal percentage for each game.
Field_goal_percentage <- (Field_Goals_Made / Field_Goals_Attempted)*100
Field_goal_percentage
## [1] 53.33333 58.33333 33.33333 64.28571 76.92308
#calculate the average field goal percentage
Average_field_goal_percentage <- mean(Field_goal_percentage)
#printing the average_field_goal_percentage
Average_field_goal_percentage
## [1] 57.24176
The average field goal percentage for the five games is 57.24