# NOT RUN {
data <- adnimerge %>% dplyr::filter(VISCODE == 'bl')
# set groups based on logical expressions. Here, data must be supplied first.
model <- data %>% aba_model() %>%
set_groups(
everyone(),
DX_bl == 'CU',
(DX_bl %in% c('MCI','AD')) & (CSF_ABETA_bl < 880)
)
print(model)
# specify labels which will be used later for printing & plotting
model <- data %>% aba_model() %>%
set_groups(
everyone(),
DX_bl == 'CU',
(DX_bl %in% c('MCI','AD')) & (CSF_ABETA_bl < 880),
labels = c('All participants', 'CU-only', 'Ab+ MCI & AD')
)
print(model)
# set groups based on strings. No data is required to be supplied first.
model <- aba_model() %>%
set_groups(
"everyone()",
"DX_bl == 'CU'",
"(DX_bl %in% c('MCI','AD')) & (CSF_ABETA_bl < 880)"
)
print(model)
# }
Run the code above in your browser using DataLab