sfm <- stockflow("SIR")
sfm <- change_name(sfm, c(susceptible, infected, recovered),
new_name = c(S, I, R)
)
print(sfm)
# References to old names are updated
as.data.frame(sfm, type = "flow", properties = c("name", "eqn", "to", "from"))
Run the code above in your browser using DataLab