r - lpsolve 不在 R 中打印 lp 模型

Question

我是 R 中 LP 建模的新手。我正在使用 lpSolveAPI。当我尝试一个带有两个决策变量的小例子并打印模型时，它会打印完整的模型。

library(lpSolveAPI)
lprec <- make.lp(nrow=0,ncol=2,verbose="full")

set.objfn(lprec,c(6,5))
lp.control(lprec,sense="max")

add.constraint(lprec,c(1,1),"<=",5)
add.constraint(lprec,c(3,2),"<=",12)

set.bounds(lprec,lower=c(0,0),columns = c(1,2))


RowNames <- c("A","B")
ColNames <- c("R1","R2")
dimnames(lprec) <- list(RowNames, ColNames)

print(lprec)

#   Model name: 

#            R1    R2        
#Maximize     6     5        
#A            1     1  <=   5
#B            3     2  <=  12
#Kind       Std   Std        
#Type      Real  Real        
#Upper      Inf   Inf        
#Lower        0     0 

但是当我尝试使用 25 个决策变量并添加一些约束后的模型时，如果我尝试打印模型，那么它只会说:

Model name: 
a linear program with 25 decision variables and 5 constraints

请建议如何显示更大的模型。

Answer 1

使用 write.lp打印更大的 LP。

 write.lp(lprec, filename="test.lp")

将生成一个文本文件，您可以使用任何文本编辑器进行检查。