filepath <- system.file("models/", "SIR.stmx", package = "readsdr")
mdl <- read_xmile(filepath)
ds_components <- mdl$deSolve_components
output <- sd_what_if_from_time(3, Inf, list(c = 4), ds_components)
Run the code above in your browser using DataLab