# No issues
sfm <- stockflow("SIR")
summary(sfm)
# Detect absence of stocks or flows
sfm <- stockflow()
summary(sfm)
# Detect stocks without inflows or outflows
sfm <- stockflow() |> update("Prey", "stock")
summary(sfm)
# Detect circularity in equation definitions
sfm <- stockflow() |>
update("Prey", "stock", eqn = "Predator") |>
update("Predator", "stock", eqn = "Prey")
summary(sfm)
Run the code above in your browser using DataLab