请问大神，这个图是怎么画出来的？

这是《金融时间序列分析》（第三版，Ruey S. Tsay）里面，有关AR模型的预测图，请问哪位大神知道，这是用R中的什么函数做出的图？这本书中前面的好多例子都有R演示，就这个例子没有。哪位知道的大神能够赐教一下，谢谢。