fg_made <- c(18, 7, 6, 9, 10, 13)
fg_attempted <- c(36, 23, 12, 18, 24, 22)
fg_pct <- fg_made / fg_attempted * 100
fg_pct
## [1] 50.00000 30.43478 50.00000 50.00000 41.66667 59.09091
avg_fg_pct <- mean(fg_pct)
avg_fg_pct
## [1] 46.86539
The field goal percentage for each game is 50, 30.43, 50, 50, 41.67, 59.09.
The average field goal percentage across the games is 46.87%.