Final1

# Vectors
field_goals_made <- c(18, 7, 6, 9, 10, 13)
field_goals_attempted <- c(36, 23, 12, 18, 24, 22)

fg_percentage <- (field_goals_made / field_goals_attempted) * 100

Field Goal Percentage for each game

Display FG% per game

fg_percentage

## [1] 50.00000 30.43478 50.00000 50.00000 41.66667 59.09091

Average Field Goal Percentage across all games

average_fg_percentage <- mean(fg_percentage)

Display average FG%

average_fg_percentage

## [1] 46.86539