R语言中的循环语句

Posted 2023-04-11

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都崩溃了，估计是我写了死循环

参考技术A $curl = curl_init();
curl_setopt($curl,CURLOPT_URL,$_GET['url']);
curl_setopt($curl,CURLOPT_RETURNTRANSFER,true);
curl_setopt($curl,CURLOPT_USERAGENT,"Mozilla/4.0
(compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)");
$output = curl_exec($curl);
curl_close($curl);
print_r($output);本回答被提问者和网友采纳

K&R C while 循环省略大括号

【中文标题】K&R C while 循环省略大括号

【英文标题】：K&R C while loop omitting braces

【发布时间】：2014-01-10 06:38:59

【问题描述】：

据我了解，对于包含多个语句的任何“语言中的标准构造”（例如 for 循环/if 语句等。我不知道它的真正含义），您都需要打开和关闭大括号。那么，为什么这个 K&R C 有效...

while((len = getline(line, MAXLINE)) > 0)
  if(len > max) 
    max = len;
    copy(longest, line);
  

while 循环中没有大括号，但它确实包含多个语句（当 if 为真时）。这是来自 K&R 的 The C Programming Language 第 2 版中的示例 1.9。

【问题讨论】：

while 循环只包含一个语句：if 语句。

if-block 算作一个语句...等等，真正的问题在哪里？

if 或 for 或 do ... while 也可以这样做。任何可以有块语句的地方，如果只有一个语句，那么大括号可以省略（函数体除外）。虽然它起源于旧的 K&R C，但它也符合现代标准。

对此的答案确实需要引用标准 IMO...

while 循环是while (condition) statement。 if (condition) statements 是一个声明。额外的大括号是可取的（我会把它们放在那里）但不是必需的。

【参考方案1】：

在您的情况下，您的 while 循环下只有一个语句，即 if 条件。在这种情况下，这段代码是正确的。

【参考方案2】：

因为if 被读取为while 的单个语句体。这是完全有效的。

【讨论】：

完全有效的 Javascript，IIRC。