Activity 14

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

# Calculate shooting percentage for each game
percentage <- made / attempted * 100
print("Three-point shooting percentage per game:")

[1] "Three-point shooting percentage per game:"

print(round(percentage, 2))  # Round to 2 decimal places

[1] 44.44 50.00 37.50 54.55 58.33

# Calculate average shooting percentage over 5 games
average_percentage <- mean(percentage)
print(paste("Average 3-point shooting percentage:", round(average_percentage, 2)))

[1] "Average 3-point shooting percentage: 48.96"

# Visualization: Bar chart of shooting percentage per game
barplot(percentage,
        main="Three-Point Shooting Percentage per Game",
        names.arg = paste("Game", 1:5),
        ylab="Shooting Percentage (%)",
        col="skyblue",
        ylim=c(0, max(percentage) + 10))
abline(h = average_percentage, col = "red", lwd = 2, lty = 2)

legend("topright", legend = "Average", col = "red", lty = 2, bty = "n")