#Check the cycle of data and plot the raw data
as.data.frame(tsdata)
cycle(tsdata)
plot(tsdata, ylab="Passengers (1000s)", type="o")