My data :
library(forecast) library(Mcomp) # Time Series # Subset the M3 data to contain the relevant series ts.data<- subset(M3, 12)[[551]] print(ts.dat
