如果为r中的循环嵌套，则为r中的循环

我的循环从第三个

开始不起作用，否则如果

我想知道，如果这句话是真的，那么该位置的
Cumu-overse2
等于该位置的
oversee
，并且从那里到最后，
Cumu-oversese（t）=Cumu-overse2（t-1）+oversee（t）

我的向量是：


Q
太阳能每小时可用吗
过剩\u se
是每小时存储的过剩量
Cumu\u extrace\u se2
是超额的向量和

循环：

for (j in 1:length(Cumu_excess_se)) {
    Cumu_excess_se[j] = sum(Excess_se[1:j])

    se.to.h <- vector("numeric", length(Excess_se))
    for (t in 1:length(se.to.h)) {
        if (Q[t] > maxse) {
            se.to.h[t] = maxse
        } else if ((Q[t] < maxse) & (Cumu_excess_se2[t] == 0)) {
            se.to.h[t] = Q[t]
        } else if ((Q[t] < maxse) & (Cumu_excess_se2[t] >= maxse)) {
            (se.to.h[t] = maxse) & (Cumu_excess_se2[t] = Cumu_excess_se2[t - 1] - (maxse - Q[t]))
        } else if ((Q[t] < maxse) & (Cumu_excess_se2[t] < maxse) & (Cumu_excess_se2[t] > 0)) {
            (se.to.h[t] = Cumu_excess_se2[t]) & (Cumu_excess_se2[t + 1] = Excess_se[t + 1])
        }
    }
}

for（j/1：长度（累计）{
累计超额成本[j]=总和（超额成本[1:j]）
东南至东南）{
se.to.h[t]=maxse
}else if（（Q[t]=maxse））{
（se.to.h[t]=maxse）和（Cumu_过剩_se2[t]=Cumu_过剩_se2[t-1]-（maxse-Q[t]））
}else if（（Q[t]0））{
（se.to.h[t]=累计超额2[t]）和（累计超额2[t+1]=超额1[t+1]）
}
}
}
用户很难回答您的问题，除非您使其可复制。下面是一些技巧：你能清理循环的格式吗？我不想编辑它们，以防我弄错了意图，但我无法理解它们目前都在做什么。将问题最小化可能会有所帮助（请参阅@jruf003的帖子链接）@Phil Done:copy to clipboard并运行
formator:：tidy_source（）
。真的很方便。我想若你们用文字描述目标，我们可以更好地帮助你们——因为循环可能根本并没有必要。我对这条线感到非常困惑，
（se.to.h[t]=maxse）和（Cumu\u exterx\u se2[t]=Cumu\u exterx\u se2[t-1]-（maxse-Q[t]）
-这条线应该做什么？我有一个向量Q，它是我每小时可以产生的能量，从那里我需要传递一个每小时的maxse值，如果可能的话到向量[se.to.h]剩下的部分需要存储在向量[cumu_过剩]中。当Qformator:：tidy_source（）
。真的很方便。我想若你们用文字描述目标，我们可以更好地帮助你们——因为循环可能根本并没有必要。我对这条线感到非常困惑，
（se.to.h[t]=maxse）和（Cumu\u exterx\u se2[t]=Cumu\u exterx\u se2[t-1]-（maxse-Q[t]）
-这条线应该做什么？我有一个向量Q，它是我每小时可以产生的能量，从那里我需要传递一个每小时的maxse值，如果可能的话到向量[se.to.h]剩下的部分需要存储在向量[cumu_过剩]中。当Q