# NOT RUN {
# use built-in data
data <- adnimerge %>% dplyr::filter(VISCODE == 'bl')
# fit an aba model
model <- data %>% aba_model() %>%
set_groups(everyone()) %>%
set_outcomes(PET_ABETA_STATUS_bl) %>%
set_predictors(
PLASMA_PTAU181_bl,
PLASMA_NFL_bl,
c(PLASMA_PTAU181_bl, PLASMA_NFL_bl)
) %>%
set_covariates(AGE, GENDER, EDUCATION) %>%
set_stats('glm') %>%
fit()
# default aba summary
model_summary <- model %>% aba_summary()
# convert summary to table
my_table <- model_summary %>% as_reactable()
# }
Run the code above in your browser using DataLab