Итеративное программирование

Question

Я хотел бы написать код, касающийся временной итеративной дисперсии. Функция должна выглядеть следующим образом:

сигма (т) = альфа х (т-1) + бета сигма (т-1)

К сожалению, я не могу понять, как внести в этот временной компоненты, например, в моем цикле. Кто-нибудь есть идея, как справиться с такой проблемой?

Answer 1

Вы имеете в виду это ??

alpha <- 2; beta <- .1 
x  <- 1:5 
sigma <- numeric(length(x)) 
sigma[1] <- 1 
for (t in 2:length(x)) sigma[t] <- alpha*x[t-1] + beta*sigma[t-1] 
sigma 
# [1] 1.0000 2.1000 4.2100 6.4210 8.6421