Activity 9

# Create the player data
players <- data.frame(
  Player = c("Yandy Diaz", "Joey Meneses", "Jose Abreu", "Ryan Noda", "Nate Lowe"),
  OBP = c(0.403, 0.320, 0.292, 0.384, 0.365),
  SLG = c(0.511, 0.366, 0.358, 0.400, 0.426),
  Salary = c(8000000, 723600, 19500000, 720000, 4050000)
)

# Display the data
players

# Set budget
budget <- 10500000

# Calculate the cost of Yandy Diaz and Ryan Noda
team_salary <- 8000000 + 720000

# Calculate combined statistics
team_obp <- 0.403 + 0.384
team_slg <- 0.511 + 0.400

# Display results
team_salary

[1] 8720000

team_obp

[1] 0.787

team_slg

[1] 0.911

#Based on the $10.5 million budget, I would select Yandy Diaz and Ryan Noda. Their combined salary is $8.72 million, which is within budget. They provide the highest combined OBP (0.787) and SLG (0.911), making them the best offensive value among the available players.