在 r 中求解 LPP

Question

单位产品重量：

• 果汁600g

• 奶酪 150g

• 面包200g

• 您必须携带 15 公斤的食物

• 假设您知道您购买香肠的商店最多有 30 个面包库存。

obj.in  <- c(.6,  .15, .2)

const.mat <- matrix(c(.6,  .15,  .2,
                      0, 0, 1,
                      nrow=2, byrow=TRUE))


weight_constraint <- 15
p3_constraint <- 6

const.rhs <- c(price_constraint, p3_constraint)

const.dir  <- c("=", "<=")

optimum <-  lp(direction="max",  obj.in, const.mat, const.dir,  const.rhs)
optimum

结果

Error: status 3

谁能帮我解决这个问题？

Answer 1

关闭 ) 的 const.mat 放错了地方。运行 OP 的代码生成单列 matrix 而不是提到的 nrow = 2

const.mat <- matrix(c(.6,  .15,  .2,
                  0, 0, 1),
                  nrow=2, byrow=TRUE)

此外，假设 as price_constraint 未定义

const.rhs <- c(weight_constraint, p3_constraint)

如果我们使用更改后的数据

library(lpSolve)
lp(direction="max",  obj.in, const.mat, const.dir,  const.rhs)
#Success: the objective function is 15

在 r 中求解 LPP

Solving LPP in r

r

linear-programming