## Coerce to phases
pha <- as_phases(mcmc_phases, start = c(1, 3), calendar = CE(), iteration = 1)
## Compute phase duration
dur <- duration(pha)
summary(dur)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.