In-class activity 14

Below are the stats provided for this activitu (Activity14):

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 perforamance 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%.