Three_Pointers_Attempted<-c(9, 10, 8, 11, 12)

Three_Pointers_Made<-c(4, 5, 3, 6, 7)

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

percentage_per_game<-(Three_Pointers_Made/Three_Pointers_Attempted)*100
percentage_per_game
## [1] 44.44444 50.00000 37.50000 54.54545 58.33333

Game 1:44.44% Game 2:50.00% Game 3:37.50% Game 4:54.55% Game 5:58.33% (Best Performance overall)

average three-point shooting percentage for the five games

average_percentage<-mean(percentage_per_game)
average_percentage
## [1] 48.96465

The overall mean is 48.96%