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