Exam2

# Field goals made and attempted
fg_made <- c(18, 7, 6, 9, 10, 13)
fg_attempted <- c(36, 23, 12, 18, 24, 22)

# Field goal percentage per game
fg_percentage <- fg_made / fg_attempted

# Print field goal percentages (per game)
print(fg_percentage)

[1] 0.5000000 0.3043478 0.5000000 0.5000000 0.4166667 0.5909091

average_fg_percentage <- mean(fg_percentage) * 100  # Convert to %
print(round(average_fg_percentage, 2))

[1] 46.87

# Three-pointers made and attempted
tp_made <- c(3, 5, 0, 6, 3, 7)
tp_attempted <- c(9, 10, 8, 12, 11, 12)

# Three-point percentage per game
tp_percentage <- tp_made / tp_attempted

print(tp_percentage)

[1] 0.3333333 0.5000000 0.0000000 0.5000000 0.2727273 0.5833333

# Average three-point percentage
average_tp_percentage <- mean(tp_percentage) * 100  # Convert to %
print(round(average_tp_percentage, 2))

[1] 36.49

# Create the dataset
PlayerID <- c(1, 2, 3, 4, 5)
Hits <- c(112, 124, 121, 106, 140)
At_Bats <- c(400, 450, 380, 500, 402)
BB <- c(50, 60, 19, 150, 55)

# Calculate OBP
OBP <- (Hits + BB) / (At_Bats + BB)

# Combine into a data frame
players <- data.frame(PlayerID, Hits, At_Bats, BB, OBP)

# Print OBPs
print(players)

# Identify player with the highest OBP
max_obp_player <- players[which.max(players$OBP), ]
print(max_obp_player)