| Version: | 1.0-4 |
| Title: | 'HiGHS' Plugin for the 'R' Optimization Infrastructure |
| Description: | Enhances the 'R' Optimization Infrastructure ('ROI') package with the quadratic solver 'HiGHS'. More information about 'HiGHS' can be found at https://highs.dev. |
| Imports: | methods, ROI (≥ 1.0-0), highs (≥ 1.9.0-0) |
| Suggests: | tinytest |
| License: | GPL-2 | GPL-3 |
| NeedsCompilation: | no |
| Packaged: | 2025-04-24 08:20:28 UTC; f |
| Author: | Florian Schwendinger [aut, cre] |
| Maintainer: | Florian Schwendinger <FlorianSchwendinger@gmx.at> |
| Repository: | CRAN |
| Date/Publication: | 2025-04-24 08:40:02 UTC |
Linear Problem 1
Description
maximize \ \ 2 x_1 + 4 x_2 + 3 x_3
subject \ to:
3 x_1 + 4 x_2 + 2 x_3 \leq 60
2 x_1 + x_2 + 2 x_3 \leq 40
x_1 + 3 x_2 + 2 x_3 \leq 80
x_1, x_2, x_3 \geq 0
Examples
Sys.setenv(ROI_LOAD_PLUGINS = FALSE)
library("ROI")
library("ROI.plugin.highs")
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)),
maximum = TRUE)
opt <- ROI_solve(x, solver = "highs")
opt
## Optimal solution found.
## The objective value is: 7.666667e+01
solution(opt)
## [1] 0.000000 6.666667 16.666667