## sequence of 10 seconds
x <- seq(0, 3600, by = 60)
x[rhrBaseIntervalSubset(x, 600)]
## make the sequence irregular
x <- sort(sample(x, 40))
x[rhrBaseIntervalSubset(x, 600)]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.