如何在lp中添加一个附加约束所有值都不为零？ -R

问题描述

u    <- runif(8,min=1,max=7) 
prob <- runif(8)
prob <- prob/sum(prob)
U    <- prob%*%u

上面，U是8个u值（都在1到7之间）的加权和。我想写一个简单的lp（），为所有权重都不为零的权重返回一个解决方案。这将是候选权重的起始值。

到目前为止，我有以下内容（可以找到权重，其中大多数为0，因为这是最简单的解决方案）：

obj.fun <- rep(1,8)
constr <- rbind(q,rep(1,8))
constr.dir <- c("==","==")
rhs <- c(Q,1)
p.start <- lp("max",obj.fun,constr,constr.dir,rhs)$sol  

如何添加另一个希望所有权重都不为零的约束？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）