已知Xt与Xt-1的关系式为 Xt=(1-0.111)X(t-1)+0.956，然后有xt两年的数据，一共400个已写代码：
LX<-log(data1$price.Index)
xt<-LX[2;400]
x(t-1)<-LX[1:399]
lm<-lm(xt~xt-1[1:399], data.frame(xt,x(t-1)[1:399]))
summary(lm)
想预测接下来20天xt的值并在同一张图上画出xt的实际值和预测值，实际数值用黑实线，预测数为黑虚线，置信区间99%.
求补充完整R代码，谢谢！！！