Exam 2 Work

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

Avg_percentage_game<- round(Field_Goals_Made/Field_Goals_Attempted, 3)
Avg_percentage_game

[1] 0.500 0.304 0.500 0.500 0.417 0.591

Overall_field_Percent<-round(mean(Avg_percentage_game),3)
Overall_field_Percent

[1] 0.469

Average field goal percentage is 46.9%

#Question 6
Three_Pointers_Made <- c(3, 5, 10, 6, 3, 7, 1)
three_attempted     <- c(9, 10, 18, 12, 11, 12, 11)
avg_three_points_game<- round(Three_Pointers_Made/three_attempted, 3)
avg_three_points_game

[1] 0.333 0.500 0.556 0.500 0.273 0.583 0.091

Avg_total_points<-round(sum(Three_Pointers_Made)/sum(Three_Pointers_Attempted),3)
Avg_total_points

[1] 0.422

#Question 7
#(Formula: OBP = (Hits + Walks) / (At-Bats + Walks))
OBP_player1 = (112 + 50)/ (400 + 50)
OBP_player2 = (124 + 60) / (450 + 60)
OBP_player3 = (121 + 19) / (380 + 19)
OBP_player4 = (106 + 150) / (500 + 150)
OBP_Player5 = (140 + 55) / (402 + 55)
OBP_player1

[1] 0.36

OBP_player2

[1] 0.3607843

OBP_player3

[1] 0.3508772

OBP_player4

[1] 0.3938462

OBP_Player5

[1] 0.4266958

Player 5 has the highest obp