if (FALSE) {
mat <- matrix(c(3, 4, 2,
2, 1, 2,
1, 3, 2), nrow=3, byrow=TRUE)
x <- OP(objective = c(2, 4, 3),
constraints = L_constraint(L = mat,
dir = c("<=", "<=", "<="),
rhs = c(60, 40, 80)),
bounds = V_bound(ui = seq_len(3), ub = c(1000, Inf, 1000), nobj = 3),
maximum = TRUE)
write.lp(x, "optimization_problem.lp")
}
Run the code above in your browser using DataLab