Lab Session 1

retaildata <- readxl::read_excel("retail.xlsx", skip = 1)
mytimeseries <- ts(retaildata[["A3349873A"]],
                  frequency=12, start=c(1982,4))
autoplot(mytimeseries)

Lab Session 2

ggseasonplot(mytimeseries)