简化循环

Question

我有两个数组out和res和c一个数字。我有此代码：

for(i in 1:N) {
    out[i] <- c - sum(res[1:i]) / i 
}

可以在一行中简化此代码，如下所示：

out = c - sum(res[1: ???] / i

Answer 1

您是说c-cumsum(res)/1:length(res)之类的吗？

Answer 2

您可以使用sapply()将其矢量化。

out <- sapply(1:length(res), function(x) c - mean(res[1:x]))