Activity 14

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

Let us Calculate 3-point percentage for each game

Percentage_per_game <- (Three_pointers_made / Three_Pointers_Attempted) * 100
Percentage_per_game

[1]  44.44444 150.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] 68.96465

The overall mean is 68.96%