# \donttest{
if(requireNamespace("cmdstanr")){
cilr <- complr(data = mcompd, sbp = sbp,
parts = c("TST", "WAKE", "MVPA", "LPA", "SB"), idvar = "ID", total = 1440)
# model with compositional predictor at between and within-person levels
m <- brmcoda(complr = cilr,
formula = Stress ~ ilr1 + ilr2 + ilr3 + ilr4 + (1 | ID),
chain = 1, iter = 500,
backend = "cmdstanr")
subm <- submargins(object = m, basesub = psub, delta = 5)
}# }
Run the code above in your browser using DataLab