pcCycle(5)
cycle <- new("BareCycle", 5)
identical(new("BareCycle", 5), pcCycle(5)) # TRUE
unitSeason(cycle)
unitCycle(cycle)
allSeasons(cycle)
seqSeasons(cycle)
cycle[]
cycle[3]
## if cycle represents 5-days week one may prefer:
BuiltinCycle(5)
Run the code above in your browser using DataLab