# NOT RUN {
# Create a time sequence of 30 min sample period
tseq <- seq(ct("2019-01-01"), ct("2019-02-01 12:00"), by=1800)
# Make the time of day sequence (assuming time between k steps is same as for tseq)
make_tday(tseq, 1:10)
# With 0.5 hour steps, kstep in hours
make_tday(tseq, 1:10, tstep=3600)
# }
Run the code above in your browser using DataLab