Упростить для цикла

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

Вы можете векторизовать это с помощью sapply().

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

Answer 2

Вы имеете в виду что-то вроде c-cumsum(res)/1:length(res)?