if (FALSE) {
library(ROI)
op <- OP()
objective(op) <- L_objective(c(-1, -1, -1, -1, -99))
mat <- simple_triplet_matrix(rep(1:3, 2),
c(c(1, 3, 4), c(2, 4, 5)),
rep(1, 6))
constraints(op) <- L_constraint(mat,
dir = leq(3),
rhs = rep.int(1, 3))
types(op) <- rep("B", length(op))
x <- ROI_solve(op, solver = "msbinlp", method = "glpk", nsol_max = 2L)
x
## 2 optimal solutions found.
## The objective value is: -1.010000e+02
solution(x)
## [[1]]
## [1] 0 1 1 0 1
##
## [[2]]
## [1] 1 0 1 0 1
}
Run the code above in your browser using DataLab