Exam 2

Question 5

# Create the vectors
field_goals_made <- c(18, 7, 6, 9, 10, 13)
field_goals_attempted <- c(36, 23, 12, 18, 24, 22)

# Calculate the field goal percentage for each game
field_goal_percentage <- field_goals_made / field_goals_attempted

field_goal_percentage

[1] 0.5000000 0.3043478 0.5000000 0.5000000 0.4166667 0.5909091

mean(field_goal_percentage)

[1] 0.4686539

mean(field_goal_percentage) * 100

[1] 46.86539

round(mean(field_goal_percentage) * 100, 2)

[1] 46.87

Question 6

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

# Calculate the three-point percentage for each game
threeP_pct <- round(threePM / threePA, 3)
# Display the percentages
threeP_pct

[1] 0.333 0.500 0.556 0.500 0.273 0.583 0.091

# Calculate the average of the per-game percentages
average_threeP_pct <- mean(threeP_pct)

# Calculate the overall (cumulative) three-point percentage
overall_threeP_pct <- sum(threePM) / sum(threePA)

# Display the results
average_threeP_pct

[1] 0.4051429

overall_threeP_pct

[1] 0.4216867

# Display as percentages
round(average_threeP_pct * 100, 2)

[1] 40.51

round(overall_threeP_pct * 100, 2)

[1] 42.17

Final Answers Average of the individual per-game three-point percentages: 40.51% Overall (cumulative) three-point shooting percentage: 42.17%

Question 7

# Create the data frame
players <- data.frame(
  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)
)

# Calculate On-Base Percentage (OBP)
players$OBP <- round((players$Hits + players$BB) /
                     (players$AtBats + players$BB), 3)

# Display the data frame
players

# Find the player with the highest OBP
players[which.max(players$OBP), ]

Player with the highest OBP: Player 5 (OBP = 0.427).