if (FALSE) {
fit1 <- brm(time | cens(censored) ~ age * sex + disease + (1|patient),
data = kidney, family = gaussian("log"))
summary(fit1)
## remove effects of 'disease'
fit2 <- update(fit1, formula. = ~ . - disease)
summary(fit2)
## remove the group specific term of 'patient' and
## change the data (just take a subset in this example)
fit3 <- update(fit1, formula. = ~ . - (1|patient),
newdata = kidney[1:38, ])
summary(fit3)
## use another family and add population-level priors
fit4 <- update(fit1, family = weibull(), init = "0",
prior = set_prior("normal(0,5)"))
summary(fit4)
## to avoid a recompilation when updating a 'cmdstanr'-backend fit in a fresh
## R session, set option 'cmdstanr_write_stan_file_dir' before creating the
## initial 'brmsfit'
## CAUTION: the following code creates some files in the current working
## directory: two 'model_.stan' files, one 'model_(.exe)'
## executable, and one 'fit_cmdstanr_.rds' file
set.seed(7)
fname <- paste0("fit_cmdstanr_", sample.int(.Machine$integer.max, 1))
options(cmdstanr_write_stan_file_dir = getwd())
fit_cmdstanr <- brm(rate ~ conc + state,
data = Puromycin,
backend = "cmdstanr",
file = fname)
# now restart the R session and run the following (after attaching 'brms')
set.seed(7)
fname <- paste0("fit_cmdstanr_", sample.int(.Machine$integer.max, 1))
fit_cmdstanr <- brm(rate ~ conc + state,
data = Puromycin,
backend = "cmdstanr",
file = fname)
upd_cmdstanr <- update(fit_cmdstanr,
formula. = rate ~ conc)
}
Run the code above in your browser using DataLab