Question 5 Answer

FGM <- c(18, 7, 6, 9, 10, 13)
FGA <- c(36, 23, 12, 18, 24, 22)

FG_pct <- FGM / FGA
FG_pct

## [1] 0.5000000 0.3043478 0.5000000 0.5000000 0.4166667 0.5909091

# [1] 0.5000000 0.3043478 0.5000000 0.5000000 0.4166667 0.5909091

mean(FG_pct)

## [1] 0.4686539

# [1] 0.4686539

Average field goal percentage is about 46.87%.