Final_exam_question_5

FieldGoalsMade <- c(18, 7, 6, 9, 10, 13)

FieldGoalsAttempted <- c(36, 23, 12, 18, 24, 22)

FieldGoalPercentage <- FieldGoalsMade / FieldGoalsAttempted

FieldGoalPercentage

## [1] 0.5000000 0.3043478 0.5000000 0.5000000 0.4166667 0.5909091

AverageFieldGoalPercentage <- mean(FieldGoalPercentage)

AverageFieldGoalPercentage

## [1] 0.4686539

AverageFieldGoalPercentage * 100

## [1] 46.86539