Final_exam_question_5

ThreePointersMade <- c(3, 5, 10, 6, 3, 7, 1)

ThreePointersAttempted <- c(9, 10, 18, 12, 11, 12, 11)

ThreePointPercentage <- ThreePointersMade / ThreePointersAttempted

ThreePointPercentage

## [1] 0.33333333 0.50000000 0.55555556 0.50000000 0.27272727 0.58333333 0.09090909

AverageThreePointPercentage <- mean(ThreePointPercentage)

AverageThreePointPercentage

## [1] 0.4051227

OverallThreePointPercentage <- sum(ThreePointersMade) / sum(ThreePointersAttempted)

OverallThreePointPercentage

## [1] 0.4216867

AverageThreePointPercentage * 100

## [1] 40.51227

OverallThreePointPercentage * 100

## [1] 42.16867