# \donttest{
if(requireNamespace("cmdstanr")){
# model with compositional predictor at between and within-person levels
fit <- brmcoda(complr = complr(data = mcompd, sbp = sbp,
parts = c("TST", "WAKE", "MVPA", "LPA", "SB"),
idvar = "ID"),
formula = Stress ~ bz1_1 + bz2_1 + bz3_1 + bz4_1 +
wz1_1 + wz2_1 + wz3_1 + wz4_1 + Female + (1 | ID),
chain = 1, iter = 500,
backend = "cmdstanr")
# removing the effect of bz1_1
fit1 <- update(fit, formula. = ~ . - bz1_1)
# using only a subset
fit2 <- update(fit, newdata = mcompd[ID != 1])
}# }
Run the code above in your browser using DataLab