# Create a stock with an initial value
sfm <- stockflow() |>
stock(population, eqn = 100, label = "Population")
# Multiple stocks
sfm <- stockflow() |>
stock(susceptible, eqn = 999, label = "susceptible") |>
stock(infected, eqn = 1, label = "infected") |>
stock(recovered, eqn = 0, label = "recovered")
Run the code above in your browser using DataLab