Exam 2 Question 6

# Create the vectors 3PM & 3PA
pm <- c(3, 5, 10, 6, 3, 7, 1)
pa <- c(9, 10, 18, 12, 11, 12, 11)

See the individual per game 3P percentages below.

# Calculate individual per game 3P percentages
per_game_pct <- pm / pa
print(per_game_pct)

[1] 0.33333333 0.50000000 0.55555556 0.50000000 0.27272727 0.58333333 0.09090909

See the average of the per game percentages below

# Calculate the average of the per game percentages
avg_per_game_pct <- mean(per_game_pct)
print(avg_per_game_pct)

[1] 0.4051227

See the overall 3P percentage below.

# Calculate the overall 3P percentage
overall_pct <- sum(pm) / sum(pa)
print(overall_pct)

[1] 0.4216867