if (FALSE) { # isTRUE(Sys.getenv("BMM_EXAMPLES"))
# generate artificial data
dat <- data.frame(y = rmixture2p(n=2000))
# define formula
ff <- bmmformula(kappa ~ 1, thetat ~ 1)
model <- mixture2p(resp_error = "y")
# fit the model
fit <- bmm(formula = ff,
data = dat,
model = model,
cores = 4,
iter = 500,
backend = 'cmdstanr')
}
Run the code above in your browser using DataLab