Exam_2_Q7

Question 7

Consider the following dataset representing the performance of baseball players in a season. It includes the following variables: PlayerID, Hits, At-Bats, Home Runs (HR), Walks (BB), and Strikeouts (SO).

The On-Base Percentage (OBP) is calculated as:

OBP = (Hits + Walks) / (At-Bats + Walks)

Compute the On-Base Percentage (OBP) for each player and determine which player has the highest OBP.

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)
OBP <- (Hits + BB) / (AtBats + BB)

# Display OBP for each player
round(OBP, 3)

[1] 0.360 0.361 0.351 0.394 0.427

# Identify the player with the highest OBP
Highest_Player <- PlayerID[which.max(OBP)]

Highest_Player

[1] 5

# Display the highest OBP value
round(max(OBP), 2)

[1] 0.43

```