Lab sessions: Day 1
Rob J Hyndman
26 September 2017
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)