data('dive.sim')
attach(dive.sim)
obs = dsdive.observe(depths = sim$depths, times = sim$times,
stages = sim$stages,
t.obs = seq(from = 0, to = max(sim$times)+60, by = 60))
detach(dive.sim)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.