filepath <- system.file("models/", "SEIR.stmx", package = "readsdr")
mdl <- read_xmile(filepath)
mm1 <- "y ~ poisson(C)"
meas_model <- list(mm1)
sd_measurements(n_meas = 2,
meas_model = meas_model,
ds_inputs = mdl$deSolve_components,
start_time = 0,
stop_time = 10,
timestep = 1/16,
integ_method = "rk4")
Run the code above in your browser using DataLab