data(CATS)
m <- mas(CATS[,1],order=5)
# \donttest{
#automatically select order of moving average
m <- mas(CATS[,1],order=NULL,h=20)
# }
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