In-class Activity 14: Three Point Attempts

three_made <- c(4, 5, 3, 6, 7)

three_attempted <- c(9, 10, 8, 11, 12)

avg_game <- round(three_made / three_attempted, 3)
avg_game

## [1] 0.444 0.500 0.375 0.545 0.583

overall_avg <- round(mean(avg_game), 2)
overall_avg

## [1] 0.49

The three-point shooting percentages for the five games are 0.444, 0.500, 0.375, 0.545, and 0.583. The average three-point shooting percentage across the five games is 0.49 (49%).