sfm <- stockflow("SIR") |>
unit_test(expr = all(susceptible >= 0)) |>
unit_test(
label = "recovered increases over time",
expr = all(diff(recovered) >= 0)
)
unit_tests(sfm)
unit_tests(sfm, test = 1L)
unit_tests(sfm, label = "increases")
Run the code above in your browser using DataLab