# NOT RUN {
data(CATS)
# }
# NOT RUN {
#automatically select order of moving average
order <- fittestMAS(CATS[,1],h=20,model="arima")$order
# }
# NOT RUN {
order <- 5
m <- MAS(CATS[,1],order=order)
xinit <- head(CATS[,1],order-1)
x <- MAS.rev(m,xinit,order,addinit=TRUE)
all(round(x,4)==round(CATS[,1],4))
# }
Run the code above in your browser using DataLab