# NOT RUN {
data <- adnimerge %>%
dplyr::filter(VISCODE %in% c('bl','m06','m12','m24'))
model <- data %>% aba_model() %>%
set_groups(
DX_bl %in% c('MCI', 'AD')
) %>%
set_outcomes(CDRSB, ADAS13) %>%
set_predictors(
PLASMA_ABETA_bl,
PLASMA_PTAU181_bl,
PLASMA_NFL_bl
) %>%
set_covariates(AGE, GENDER, EDUCATION) %>%
set_stats(
stat_mmrm(id = 'RID', time = 'VISCODE')
) %>%
fit()
model_summary <- model %>% aba_summary()
# }
Run the code above in your browser using DataLab