Code:

```
library(smooth)
tsdatatr=ts(mydata$Spend,start=c(2014,12),frequency=12,end=c(2019,11))
tsdata=ts(mydata$Spend,start=c(2014,12),frequency=12,end=(c(2020,11))) # a training data set to choose the best model
esmtr<-es(tsdatatr, model = "ZZZ")
esmtr # it will show the chosen model
```

I was curious if anyone knew how reasonable it is as the data changes over time for the same model to always be chosen this way.

Of course since no one does time series here probably no one uses this...

Well on the bright side I am slowly learning R.