Exam 2

Quetion 5

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

Calculate the field goal percentage for each game and select the correct average field goal percentage for the five games.

FieldGoalPercentge <- FieldGoalsMade / FieldGoalsAttempted
FieldGoalPercentge

[1] 0.5000000 0.3043478 0.5000000 0.5000000 0.4166667
[6] 0.5909091

MeanFieldGoalPercentage <- mean(FieldGoalPercentge)
MeanFieldGoalPercentage

[1] 0.4686539

The average percentage is 46.9%.

Question 6

ThreePM <- c(3,5,10,6,3,7,1)
ThreePA <- c(9,10,18,12,11,12,11)

Calculate both the average of the individual per-game three-point percentages and the overall (cumulative) three-point shooting percentage across all seven games

ThreePP <- ThreePM / ThreePA
ThreePP

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

Avg_individual3PP <- mean(ThreePP)
Avg_individual3PP

[1] 0.4051227

overall_avg <- sum(ThreePM) / sum(ThreePA)
overall_avg

[1] 0.4216867

The average individual percentage made is 40.5% The overall cumulative 3 point percentage is 42.2%

Question 7

PlayerID <- c(1, 2, 3, 4, 5)
Hits <- c(112, 124, 121, 106, 140)
AtBats <- c(400, 450, 380, 500, 402)
HR <- c(25, 22, 8, 20, 11)
BB <- c(50, 60, 19, 150, 55)
SO <- c(60, 65, 67, 92, 70)

Compute the On-Base Percentage (OBP) for each player and select the player with the highest OBP.

OBP <- (Hits + BB) / (AtBats + BB)
OBP

[1] 0.3600000 0.3607843 0.3508772 0.3938462
[5] 0.4266958

PlayerID[which.max(OBP)]

[1] 5

The player with the Max OBP is Player 5

c <- 601 - 520
c

[1] 81

72 - 56

[1] 16

24/40

[1] 0.6