在 R中用 rglpk_solve_lp 求解线性规划 并设置优先因子

在 R 中使用 `rglpk_solve_lp` 求解线性规划，可以使用 `Rglpk` 包。该包提供了 `Rglpk_solve_LP` 函数，它的语法为：

Rglpk_solve_LP(obj, mat, dir, rhs, bounds, types, max = FALSE, control = list())

其中，`control` 参数可以用来设置优先因子。具体而言，在 `control` 参数中，可以使用 `glpk.control` 函数来设置 `GLPK` 求解器的选项。例如，若要设置优先因子为 `GLP_DUAL`，可以使用以下代码：

library(Rglpk)
ctrl <- glpk.control(pricing = "PRICER", presolve = "PRESOLVE",
                     simplex = "SIMPLEX", msg_lev = "GLP_MSG_ALL",
                     meth = "DUAL", pricing = "DEVEX")
result <- Rglpk_solve_LP(obj, mat, dir, rhs, bounds, types, control = ctrl)

其中，`meth` 参数是用来设置求解器方法的，这里设置为 `DUAL`，表示使用对偶方法；`pricing` 参数用来设置单纯形法的选项，这里设置为 `DEVEX`，表示使用 DeVex 算法。其他参数的含义可以参考 `glpk.control` 的帮助文档。