Below are the stats provided for this activity

Three_Pointers_Made <- c(4, 5, 3, 6, 7)
Three_Pointers_Attempted <- c(9, 10, 8, 11, 12)

*** let us Calculate the three-point shooting percentage for each game ***

 percentage_per_game <- (Three_Pointers_Made/Three_Pointers_Attempted)
 percentage_per_game
## [1] 0.4444444 0.5000000 0.3750000 0.5454545 0.5833333
average_percentage <- mean(percentage_per_game)
average_percentage
## [1] 0.4896465

The over all mean is 48.96.%.