R Notebook

install.packages("gtools")

Error in install.packages : Updating loaded packages

library(gtools)

# Load necessary library
library(dplyr)
library(gtools)  # for combinations

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

combo_indices <- combinations(n = nrow(players), r = 2)
combos <- lapply(1:nrow(combo_indices), function(i) {
  idx <- combo_indices[i, ]
  df <- players[idx, ]
  data.frame(
    Player1 = df$Name[1],
    Player2 = df$Name[2],
    Total_OBP = sum(df$OBP),
    Total_SLG = sum(df$SLG),
    Total_Offense = sum(df$OBP) + sum(df$SLG),
    Total_Salary = sum(df$Salary)
  )
})

combo_df <- do.call(rbind, combos)
budget <- 10500000
affordable_combos <- combo_df %>% filter(Total_Salary <= budget)

best_combo <- affordable_combos %>% arrange(desc(Total_Offense)) %>% head(1)
print(best_combo)