[英]Having trouble with nested loops (R)
我编写了这个嵌套循环,以便在内部循环中,代码贯穿第一行; 然后,外层更新循环以允许内层运行通过第二行(依此类推)。 数据来自矩阵“supergerador”。 “rodadas”是行大小,“n”是列大小。 “vec”是感兴趣的向量。 先感谢您!
编辑: i, j 最初被分配 i = 1, j = 2
for(e in 1:rodadas) {
for(f in 1:(n-1)) {
if(j >= 10) {
vec[f] = min(supergerador[i, j] - supergerador[i, j - 1], 1 - supergerador[i, j])
}
else {
vec[f] = func(i, j)
}
j = j + 1
}
i = i + 1
}
func
定义为
func = function(i, j) {
minf = min(supergerador[i, j] - supergerador[i, j - 1], supergerador[i, j + 1] - supergerador[i, j])
return(minf)
}
作为参考,这是嵌套循环返回的内容。 你可以说它只经过了一行。
> vec
[1] 0.127387378 0.068119707 0.043472981 0.043472981 0.027431603 0.027431603
[7] 0.015739046 0.008010766 0.008010766
我不太确定您打算在这里做什么,但这里有一些建议和代码编辑:
建议:
x[i, j]
,请将其存储在一个变量中,然后在您的结果中使用此变量。将这些合并到您的代码中,我相信您正在寻找
for(i in 1:rodadas) {
for(j in 2:n) {
x1 = supergerador[i, j]
x2 = supergerador[i, j - 1]
if(j >= 10) {
vec[f] = min(x1 - x2, 1 - x1)
}
else {
vec[f] = min(x1 - x2, supergerador[i, j + 1] - x1)
}
}
}
在这里,我假设您希望将每一行的列循环到rodadas
。
一旦您对 R 更加熟悉,您应该研究一下矢量化。 对您的问题有了更多了解,我们应该可以很容易地向量化您的第二个 for 循环,删除您的if
语句并在 1 次快速扫描中执行计算。 但在那之前,这是一个开始您的编程体验的好地方,并且对for-loops
有深刻的理解对于任何语言都至关重要。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.