R Notebook

Question 5

Field_Goals_Made<-c(18,7,6,9,10,13)
Field_Goals_Attempted<-c(36,23,12,18,24,22)
Field_Goal_Percentage=(Field_Goals_Made/Field_Goals_Attempted)*100
Field_Goal_Percentage

[1] 50.00000 30.43478 50.00000 50.00000 41.66667 59.09091

Question 6

Three_Pointers_Made<-c(3,5,0,6,3,7)
Three_Pointers_Attempted<-c(9,10,8,12,11,12)
Three_point_shooting_percentage=(Three_Pointers_Made/Three_Pointers_Attempted)*100
Three_point_shooting_percentage

[1] 33.33333 50.00000  0.00000 50.00000 27.27273 58.33333

Question 7

OBP1=(112 + 50)/(400 + 50)
OBP2=(124 + 60)/(450 + 60)
OBP3=(121 + 19)/(380 + 19)
OBP4=(106 + 150)/(500 + 150)
OBP5=(140 + 55)/(402 + 55)
OBP1

[1] 0.36

OBP2

[1] 0.3607843

OBP3

[1] 0.3508772

OBP4

[1] 0.3938462

OBP5

[1] 0.4266958