# NOT RUN {
data(CATS)
m <- mas(CATS[,1],order=5)
# }
# NOT RUN {
#automatically select order of moving average
m <- mas(CATS[,1],order=NULL,h=20)
# }
# NOT RUN {
x <- mas.rev(m, attributes(m)$xi, attributes(m)$order)
all(round(x,4)==round(CATS[,1],4))
# }
Run the code above in your browser using DataLab