循环语句问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

y<-read.csv("y.csv",header=T)
y<-as.matrix(y)
b<-read.csv("b.csv",header=T)
b<-as.matrix(b)
x1<-read.csv("x1.csv",header=T)
x1<-as.matrix(x1)
x2<-read.csv("x2.csv",header=T)
x2<-as.matrix(x2)
x3<-read.csv("x3.csv",header=T)
x3<-as.matrix(x3)
library(lpSolve)
re<-matrix(rep(0,14*27),nrow=14,ncol=27)
for(t in 1:14){
for(k in 1:27){
f.obj<-c(rep(0,27),1)
f.con<-matrix(rbind(c(y[t,],-y[t,k]),c(b[t,],b[t,k]),c(x1[t,],x1[t,k]),c(x2[t,],x2[t,k]),c(x3[t,],x3[t,k])))
f.dir<-c(">=","=","<=","<=","<=")
f.rhs<-c(y[t,k],b[t,k],x1[t,k],x2[t,k],x3[t,k])
re[t,k]<-lp("max",f.obj,f.con,f.dir,f.rhs)$solution[28]
}
}
re

请问循环结构有啥问题，R语言一运行就崩溃了，是有死循环吗？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：循环语句

是不是这句不对?
f.con<-matrix(rbind(c(y[t,],-y[t,k]),c(b[t,],b[t,k]),c(x1[t,],x1[t,k]),c(x2[t,],x2[t,k]),c(x3[t,],x3[t,k])))
改成
f.con<-as.matrix(rbind(c(y[t,],-y[t,k]),c(b[t,],b[t,k]),c(x1[t,],x1[t,k]),c(x2[t,],x2[t,k]),c(x3[t,],x3[t,k])))
试试
(不太懂你的程序, 仅供参考)

enxizheng 发表于 2015-7-16 22:32
是不是这句不对?
f.con

不是这句，应该是for循环那里错了，可具体在哪我不知道

KEYNERMEN 发表于 2015-7-16 22:49
不是这句，应该是for循环那里错了，可具体在哪我不知道

从结构上看, 两个for好像没啥问题, 问题还是应该出现在循环内部.

enxizheng 发表于 2015-7-16 23:02
从结构上看, 两个for好像没啥问题, 问题还是应该出现在循环内部.

这是个线性规划的程序吧

你的目标函数是什么?
可能下面这句话有问题
f.obj<-c(rep(0,27),1)