# NOT RUN {
data <- adnimerge %>% dplyr::filter(VISCODE == 'bl')
model_spec <- data %>% aba_model() %>%
set_groups(everyone()) %>%
set_outcomes(ConvertedToAlzheimers, CSF_ABETA_STATUS_bl) %>%
set_predictors(
PLASMA_ABETA_bl, PLASMA_PTAU181_bl, PLASMA_NFL_bl,
c(PLASMA_ABETA_bl, PLASMA_PTAU181_bl, PLASMA_NFL_bl)
) %>%
set_stats('glm')
model <- model_spec %>% aba_fit()
# }
Run the code above in your browser using DataLab