R语言作线性规划

#首先安装并加载包“Rglpk”
install.packages("Rglpk")
library("Rglpk")

obj <- c(3, 5) #目标函数
mat <- matrix(c(3, 1, 0, 2, 0, 2), nrow = 3) #技术系数矩阵，注意优先填充纵列
dir <- c("<=", "<=", "<=") 
rhs <- c(18, 4, 12) #right hand terms 右端项
Rglpk_solve_LP(obj, mat, dir, rhs, max = TRUE) #调用函数找出最优解

#运行结果
$optimum
[1] 36

$solution
[1] 2 6

$status
[1] 0  #找到最优解会返回0，否则会返回1

$solution_dual
[1] 0 0

$auxiliary
$auxiliary$primal
[1] 18  2 12