test_that("discrete sim",{
g = makedata()
g = infectN(2)(g)
s = spreadP2()
g = stepSim(g, s, stopWhenClear)
expect_true(!any(V(g)=="I"))
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.