rm(list=ls())
library(ibmR)
model=new("scheduler")
model=addPopulation(model,10,0.1,0.1,1/70)
model=addPopulation(model,10,0.1,0.1,1/70)
model=addPathogen(model,10,0.1,0.1,1/70)
step<-function()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.