| 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