library(mrgsolve)
mod <- exmodel(1, exdata = FALSE)
dat <- exdata(ID = c(1,2))
# Classic framework
set.seed(123)
do_mapbayr_sim(x = mod, data = dat, Request = "DV")
# No random effect
do_mapbayr_sim(x = zero_re(mod), data = dat)
do_mapbayr_sim(x = mod, data = dat, new_omega = "zero_re")
# New random effects
## New omega matrix
do_mapbayr_sim(x = mod, data = dat, new_omega = dmat(0.1, 0.03, 0.01), nrep = 10)
## Matrix with "eta" as mean and "new_omega" as variance covariance matrix
etamat <- get_eta(est001, output = "num")[1:2,]
do_mapbayr_sim(
x = mod, data = dat, nrep = 10,
eta = etamat, new_omega = dmat(0.1, 0.03, 0.01)
)
Run the code above in your browser using DataLab