if (FALSE) { # has_internet() && Sys.getenv("NOT_CRAN") == "true"
# Load a model from Insight Maker
sfm <- import_insightmaker(
url =
"https://insightmaker.com/insight/43tz1nvUgbIiIOGSGtzIzj/Romeo-Juliet"
)
plot(sfm)
# \dontshow{
sfm <- sim_settings(sfm, save_at = .5)
# }
# Simulate the model
sim <- simulate(sfm)
plot(sim)
}
Run the code above in your browser using DataLab