sfm <- stockflow("SIR")
sim <- simulate(sfm)
plot(sim)
# The default plot title and axis labels can be changed like so:
plot(sim, main = "Simulated trajectory", xlab = "Time", ylab = "Value")
# Add constants to the plot
plot(sim, show_constants = TRUE)
Run the code above in your browser using DataLab