Question 7 Final Exam

# Define the variables
hits <- c(112, 124, 121, 106, 140)
at_bats <- c(400, 450, 380, 500, 402)
walks <- c(50, 60, 19, 150, 55)

# Calculate OBP
obp <- (hits + walks) / (at_bats + walks)

# Print OBPs
print(obp)

[1] 0.3600000 0.3607843 0.3508772 0.3938462 0.4266958

# Identify player with highest OBP
which.max(obp)

[1] 5