knitr::opts_chunk$set(echo = FALSE, messages = FALSE, warnings = FALSE, fig.width = 9, fig.height = 9)
library(ewing)
mysim <- init.simulation(interact = FALSE, message = FALSE)
simres <- future.events(mysim, nstep = 1000, plotit = FALSE, messages = FALSE)
ggplot_ewing(simres)
mysim <- init.simulation(interact = FALSE, message = FALSE, datadir = "local/data")
simres <- future.events(mysim, nstep = 1000, plotit = FALSE, messages = FALSE)
Local copy has fewer stages and changed names.
ggplot_ewing(simres)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.