自己编写一个小程序即可。
aa<-read.table()#导入数据，并假设根据aa中前三个真实值预测接下来的值
pred[1:3]<-aa[1:3]
for(i in 4:length(aa)){
pred[i]<-a*aa[i-1]+(1-a)*pred[i-1] #a是平滑指数，可人为控制
}#pred为预测值，其中前三个数据为真实数据

非常感谢！

也可以使用网页版SPSSAU进行操作下。