Question 5 Final Exa

# Step 1: Define the vectors
fg_made <- c(18, 7, 6, 9, 10, 13)
fg_attempted <- c(36, 23, 12, 18, 24, 22)

# Step 2: Calculate FG% for each game
fg_percent <- fg_made / fg_attempted * 100

# Step 3: Display FG% for each game
print(fg_percent)

[1] 50.00000 30.43478 50.00000 50.00000 41.66667 59.09091

# Step 4: Calculate the average FG%
avg_fg_percent <- mean(fg_percent)
print(avg_fg_percent)

[1] 46.86539