library("forecast")
ss<-c(29,36,36,48,93,28,35,28,37,50,37,3,25,28,40,45,38,43,34,44,43,25,33,34)
ss<-ts(ss,f=12,start=c(2016,1))
for (i in 1:12){
ssfc <- ses(ss[c(i:(11+i))],h=1)
ssfc2 <- meanf(ss[c(i:(11+i))],h=1)
ssfc3 <- naive(ss[c(i:(11+i))],h=1)
ssfc4 <- snaive(ss[c(i:(11+i))],h=1)
ssfc5 <- rwf(ss[c(i:(11+i))],h=1,drift=TRUE)
ssfc6 <- croston(ss[c(i:(11+i))],h=1)
ssfc8 <- holt(ss[c(i:(11+i))],h=1)
ssfc9<-holt(ss[c(i:(11+i))],h=1,damped=TRUE)
print(round(accuracy(ssfc),4))
print(ssfc8[["model"]])
print(round(accuracy(ssfc2),4))
print(round(accuracy(ssfc3),4))
print(round(accuracy(ssfc4),4))
print(round(accuracy(ssfc5),4))
print(round(accuracy(ssfc6),4))
print(round(accuracy(ssfc8),4))
print(round(accuracy(ssfc9),4))
}
and got the following output for the training set:
Now if I just use MSE and MAE, one response would be to use holt based on MSE, but MAE (or MASE) says use SES. Maybe too much info is not a good thing in this case. I also only gave you 12 months of data, but the set contains 24, which I roll through with a 12 month window. There are no zeros in the dataset, but for some reason Croston's method wins out in most cases. Totally confused.