# \donttest{
## fit a model
if(requireNamespace("cmdstanr")){
## compute composition and ilr coordinates
x <- complr(data = mcompd, sbp = sbp,
parts = c("TST", "WAKE", "MVPA", "LPA", "SB"),
idvar = "ID", total = 1440)
## fit a model
m1 <- brmcoda(complr = x,
formula = Stress ~ bz1_1 + bz2_1 + bz3_1 + bz4_1 +
wz1_1 + wz2_1 + wz3_1 + wz4_1 + (1 | ID),
chain = 1, iter = 500,
backend = "cmdstanr")
## compute expected predictions
epred <- fitted(m1)
head(epred)
## fit a model with compositional outcome
m2 <- brmcoda(complr = x,
formula = mvbind(z1_1, z2_1, z3_1, z4_1) ~ Stress + Female + (1 | ID),
chain = 1, iter = 500,
backend = "cmdstanr")
## expected predictions on compositional scale
epredcomp <- fitted(m2, scale = "response")
head(epredcomp)
}# }
Run the code above in your browser using DataLab