# \donttest{
if(requireNamespace("cmdstanr")){
x <- complr(data = mcompd, sbp = sbp,
parts = c("TST", "WAKE", "MVPA", "LPA", "SB"), idvar = "ID",
total = 1440)
m <- 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")
m_pivot_coord_rotate <- pivot_coord_rotate(m)
summary(m_pivot_coord_rotate)
m_pivot_coord_raw <- pivot_coord_rotate(m, summary = FALSE)
lapply(m_pivot_coord_raw$output, brms::posterior_summary)
}# }
Run the code above in your browser using DataLab