tests/testthat/test.discrete.R

test_that("discrete sim",{
    g = makedata()
    g = infectN(2)(g)
    s = spreadP2()
    g = stepSim(g, s, stopWhenClear)
    expect_true(!any(V(g)=="I"))
}
          )
barryrowlingson/sirgraph documentation built on April 8, 2020, 7:19 p.m.