Quero fazer previsão do tipo Recursiva. Preciso a cada mes (t) deslocar a janela de dados do ultimo mes para frente em um periodo (periodo esse mensal, ou seja, t+1).
dados<-read.table("C:/Biomedica/Doença/evolmensal.txt", header=T, dec=",")
dados.ts <- ts(dados, start=c(1998,03), freq=12)
periodo = window(dados.ts, start=c(1999,01),end=c(2007,12))
periodo
stat=c(2008,01)
dado_de_fora=window(dados.ts,start=stat)
recurs.pred1=ts(0,start=stat,end=c(2014,10),frequency=12)
Segue o looping:
for (t in 1:(length(dado_de_fora))) {
reg.recur1=arima(window(periodo,end=c(2007,11+t)),order=c(1,0,1))
recurs.pred1[t]=predict(reg.recur1,n.ahead=1)$pred
O problema que estou enfrentando é o de que quando t for igual a 2 a janela continua pegando apenas o periodo end=c(2007,12)
ou seja, não caminha para end=c(2008,01)
e assim por diante.
Quando rodo:
window(periodo,end=c(2007,11+3))
Deveria obter como dado final fevereiro de 2008