In Class Activity 14

#Declare the variable PointsMade and conver it to a vector variable by adding c(4, 5, 3, 6, 7)

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

#Declare the variable PointsAttempted and conver it to a vector variable by adding c(9, 10, 8, 11, 12)

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

# Calculate shooting percentage for each game
shooting_percentages <- (PointsMade / PointsAttempted) * 100
shooting_percentages

[1] 44.44444 50.00000 37.50000 54.54545 58.33333

# Calculate average shooting percentage
average_percentage <- mean(shooting_percentages)
average_percentage

[1] 48.96465

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