如何使用Lpsolve在R中检索优化目标函数中的变量值

我试图在优化的目标函数中找到x和y的值。 这是我使用的用于找到最佳值的代码

objective.in=c(6.55,7.9)
const.mat=matrix(c(0.25,0,0.25,0.5,0.5,0.5),nrow=3,byrow = TRUE)
const.dir<-c("<=","<=","<=")
const.rhs<-c(500,200,200)
lp("max",objective.in,const.mat,const.dir,const.rhs)

objective.in=c（6.55,7.9）
常数mat=矩阵（c（0.25,0.25,0.5,0.5,0.5），nrow=3，byrow=TRUE）
const.dir
>库（lpSolve）
>目的：in=c（6.55,7.9）
>常数mat=矩阵（c（0.25,0.25,0.5,0.5,0.5），nrow=3，byrow=TRUE）
>const.dir const.rhs res res$objval
[1] 3160

使用
？lp.object
查找有关
lp（）
返回的对象中可用内容的更多信息。
在最后一行，将其分配到对象中，然后使用
str（）
查看该对象的结构。
> library(lpSolve)
> objective.in=c(6.55,7.9)
> const.mat=matrix(c(0.25,0,0.25,0.5,0.5,0.5),nrow=3,byrow = TRUE)
> const.dir<-c("<=","<=","<=")
> const.rhs<-c(500,200,200)
> res<-lp("max",objective.in,const.mat,const.dir,const.rhs)
> res$objval
[1] 3160