Final2

# Vectors
three_pointers_made <- c(3, 5, 0, 6, 3, 7)
three_pointers_attempted <- c(9, 10, 8, 12, 11, 12)

# Three-Point Percentage per game
three_point_percentage <- (three_pointers_made / three_pointers_attempted) * 100

# Display 3P% for each game
three_point_percentage

## [1] 33.33333 50.00000  0.00000 50.00000 27.27273 58.33333

# Average Three-Point Percentage over all games
average_three_point_percentage <- mean(three_point_percentage)

# Display average 3P%
average_three_point_percentage

## [1] 36.4899