mod <- mrgsolve::house(delta = 24, end = 168)
data <- mrgsolve::expand.ev(
amt = c(100, 300, 450),
ID = 1:100,
ii = 24,
addl = 6
)
data <- dplyr::mutate(data, dose = amt)
process <- bg_mrgsim_d(
mod,
data,
carry_out = "dose",
outvars = "CP",
.wait = TRUE
)
process$get_result()
ds <- file.path(tempdir(), "sims")
files <- bg_mrgsim_d(
mod, data, carry_out = "dose",
.wait = TRUE,
.locker = ds,
.format = "fst"
)
files
sims <- internalize_fst(ds)
head(sims)
Run the code above in your browser using DataLab