Lineup Optimization

🎯 Optimization Approaches

R Code Equivalent

# DFS lineup optimization with integer programming
library(lpSolve)

optimize_lineup <- function(players, cap = 50000, roster_size = 8) { 
  n <- nrow(players)
  
  # Objective: maximize total projection
  obj <- players$projection
  
  # Constraints
  # 1. Salary cap
  # 2. Roster size
  # 3. Position requirements
  const_mat <- rbind(
    players$salary,    # Salary constraint
    rep(1, n)          # Roster size
  )
  const_rhs <- c(cap, roster_size)
  const_dir <- c("<=", "=")
  
  # Binary: each player in or out
  result <- lp("max", obj, const_mat, const_dir, const_rhs, 
               binary.vec = 1:n)
  
  selected <- which(result$solution == 1)
  list(
    lineup = players[selected, ],
    total_proj = sum(players$projection[selected]),
    total_salary = sum(players$salary[selected])
  )
}