In Class Activity -14

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.

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

# Three-point shooting percentage for each game
three_pt_pct <- made / attempted

# Display percentages
three_pt_pct

[1] 0.4444444 0.5000000 0.3750000 0.5454545 0.5833333

# Average three-point shooting percentage
average_pct <- mean(three_pt_pct)

# Display average
average_pct

[1] 0.4896465

# Convert to percentage
average_pct * 100

[1] 48.96465

The shooting percentages for each game are:

Game 1: 4/9=0.4444 (44.44%) Game 2: 5/10=0.5000 (50.00%) Game 3: 3/8=0.3750 (37.50%) Game 4: 6/11=0.5455 (54.55%) Game 5: 7/12=0.5833 (58.33%)

The average three-point shooting percentage across the five games is approximately 48.96%.