if (FALSE) { # isTRUE(Sys.getenv("BMM_EXAMPLES"))
# simulate data from the model
dat <- data.frame(y = rsdm(n = 1000, c = 4, kappa = 3))
# specify formula
ff <- bmf(c ~ 1,
kappa ~ 1)
# specify the model
fit <- bmm(formula = ff,
data = dat,
model = sdm(resp_error = 'y'),
cores = 4,
backend = 'cmdstanr')
}
Run the code above in your browser using DataLab