Exam_2_Q6

Consider the following vectors in R representing the number of three-pointers made (3PM) and attempted (3PA) by a basketball player over a seven-game span:

# Three-pointers made
ThreePM <- c(3, 5, 10, 6, 3, 7, 1)

# Three-pointers attempted
ThreePA <- c(9, 10, 18, 12, 11, 12, 11)

# Calculate the three-point percentage for each game
ThreeP_Percentage <- (ThreePM / ThreePA) * 100

# Display each game's percentage
round(ThreeP_Percentage, 2)

[1] 33.33 50.00 55.56 50.00 27.27 58.33  9.09

# Calculate the average of the individual game percentages
Average_ThreeP <- mean(ThreeP_Percentage)

round(Average_ThreeP, 2)

[1] 40.51

# Calculate the overall (cumulative) three-point percentage
Overall_ThreeP <- (sum(ThreePM) / sum(ThreePA)) * 100

# Display the overall percentage
round(Overall_ThreeP, 2)

[1] 42.17