Consider the following vectors representing the number of three-pointers made and attempted by a basketball player in five games:

Three-Pointers Made: c(4, 5, 3, 6, 7) Three-Pointers Attempted: c(9, 10, 8, 11, 12)

Calculate the three-point shooting percentage for each game and select the correct average three-point shooting percentage for the five games.

three_made<- c(4, 5, 3, 6, 7)
three_attempted<- c(9, 10, 8, 11, 12)
three_made
## [1] 4 5 3 6 7
three_attempted
## [1]  9 10  8 11 12
#three point percentage for each game 
three_percentage<- (three_made/three_attempted)
three_percentage
## [1] 0.4444444 0.5000000 0.3750000 0.5454545 0.5833333
#average three point percentage for the five games
three_percentage_avg<- mean(three_percentage)
three_percentage_avg
## [1] 0.4896465