Exam 2 workbook

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

FGPercent<- (Field_Goals_Made / Field_Goals_Attempted)
FGPercent

[1] 0.5000000 0.3043478 0.5000000 0.5000000 0.4166667 0.5909091

FGPercentAvg <- mean(FGPercent)
FGPercentAvg

[1] 0.4686539

Three_Pointers_Made <- c(3, 5,0, 6, 3, 7)
Three_Pointers_Attempted <- c(9, 10, 8,12, 11, 12)

TPPercentage <- (Three_Pointers_Made / Three_Pointers_Attempted)
TPPAvg <- mean(TPPercentage)
TPPercentage

[1] 0.3333333 0.5000000 0.0000000 0.5000000 0.2727273 0.5833333

TPPAvg

[1] 0.364899

#PlayerID, Hits, At-Bats, Home Runs (HR), Walks (BB), and Strikeouts (SO).

Player1 <- c(112, 400, 25, 50, 60)
Player2 <- c(124, 450, 22, 60, 65)
Player3 <- c(121,380,8,19,67)
Player4 <- c(106,500,20,150,92)
Player5 <- c(140,402,11,55,70)

OBP1 <- (Player1[[1]]+Player1[[4]]) / (Player1[[2]]+Player1[[4]])
OBP2 <- (Player2[[1]]+Player2[[4]]) / (Player1[[2]]+Player2[[4]])
OBP3 <- (Player3[[1]]+Player3[[4]]) / (Player1[[2]]+Player3[[4]])
OBP4 <- (Player4[[1]]+Player4[[4]]) / (Player1[[2]]+Player4[[4]])
OBP5 <- (Player5[[1]]+Player5[[4]]) / (Player1[[2]]+Player5[[4]])

OBP1

[1] 0.36

OBP2

[1] 0.4

OBP3

[1] 0.3341289

OBP4

[1] 0.4654545

OBP5

[1] 0.4285714