Exam 2 Questions 5-7

Q5:

#Vectors representing the number of field goals made and attempted by a basketball player in five games
field_goals_made <- c(18, 7, 6, 9, 10,13)
field_goals_attempted <- c(36, 23, 12, 18, 24,22)

#Percent
field_goals_percent <- field_goals_made/field_goals_attempted
field_goals_percent

[1] 0.5000000 0.3043478 0.5000000 0.5000000 0.4166667 0.5909091

#Field goal percentage
mean(field_goals_percent)

[1] 0.4686539

#Average as percentage
mean(field_goals_percent) * 100

[1] 46.86539

Approximately 47%

Q6:

#Vectors
threePM <- c(3, 5, 10, 6, 3, 7, 1)
threePA <- c(9, 10, 18, 12, 11, 12, 11)

#Per-game three-point percentages
threePPCT <- threePM/threePA
threePPCT

[1] 0.33333333 0.50000000 0.55555556 0.50000000 0.27272727 0.58333333 0.09090909

#Average individual per-game percentages
avgpgPCT <- mean(threePPCT)
avgpgPCT

[1] 0.4051227

#Overall (cumulative) three-point shooting percentage across all seven games
overallPCT <- sum(threePM)/sum(threePA)
overallPCT

[1] 0.4216867

#As percent
overallPCT <- sum(threePM)/sum(threePA) * 100
overallPCT

[1] 42.16867

Approximately 42%

Q7:

#Data
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)

#OBP per player
OBP <- (Hits+BB)/(AtBats+BB)
OBP

[1] 0.3600000 0.3607843 0.3508772 0.3938462 0.4266958

#Player with the highest OBP
HP <- max(OBP)
PlayerID[OBP == HP]

[1] 5

Player 5 has the highest OBP with approximately 43%