## bare bone Cyclic starting at Cycle 1, season 1
Cyclic(4)
Cyclic(4, c(1,1)) # same
## with quarter/year cycle
qu <- Cyclic(BuiltinCycle(4), start = c(2020, 1))
start(qu)
as_datetime(qu)
date(qu) <- c(2009, 2)
qu
ap <- pcts(AirPassengers)
as.Date(ap)
Run the code above in your browser using DataLab