R Notebook

Alexander Romero

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.

First we created both Made and Attempted statement, print them to make sure it works.

made <- c(4, 5, 3, 6, 7)
attempted <- c(9, 10, 8, 11, 12)
print(made)

[1] 4 5 3 6 7

print(attempted)

[1]  9 10  8 11 12

Shooting percentage per game

percentage <- (made / attempted) * 100
print(percentage)

[1] 44.44444 50.00000 37.50000 54.54545 58.33333

Average shooting percentage across all games

average_percentage <- mean(percentage)
print(average_percentage)

[1] 48.96465