嵌套循环有问题 (R)

如何解决嵌套循环有问题 (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,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

解决方法

我不太确定您打算在这里做什么，但这里有一些建议和代码编辑：

建议：

1. 如果您有 for 循环，请为您的子集使用循环索引（尽可能多），并避免在可能的情况下使用其他索引。
   • 这可以避免在索引应该重置但没有重置时出现代码混乱和不可预见的错误。
2. 尽可能避免双重子集变量。例如，如果您多次调用 x[i,j]，请将其存储在一个变量中，然后在您的结果中使用该变量。
3. 单行函数很好，但应该增加代码的可读性。否则，从效率的角度来看，内联您的代码是最佳选择。

将这些合并到您的代码中，我相信您正在寻找

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 有深刻的理解对于任何语言都至关重要。