sfm <- stockflow("SIR") |>
unit_test(label = "susceptible is non-negative", expr = all(susceptible >= 0)) |>
unit_test(label = "recovered increases", expr = all(diff(recovered) >= 0))
# Remove by test
sfm <- discard_unit_test(sfm, test = 1)
# Remove by label
sfm <- discard_unit_test(sfm, label = "recovered increases")
Run the code above in your browser using DataLab