## Coerce to MCMC
eve <- as_events(mcmc_events, calendar = CE(), iteration = 1)
eve <- eve[1:10000, ]
## Occurrence plot
occ <- occurrence(eve)
plot(occ, panel.first = graphics::grid())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.