# NOT RUN {
data <- adnimerge %>% dplyr::filter(VISCODE == 'bl')
# set with variables
model <- aba_model() %>%
set_data(data) %>%
set_outcomes(CDRSB, ADAS13, MMSE)
# supply labels
model <- aba_model() %>%
set_data(data) %>%
set_outcomes(CDRSB, ADAS13, MMSE, labels=c('CDR-SB','ADAS-13','MMSE'))
# supply strings - data does not need to be set first here. But it will
# result in an error if these variables do not <U+00E9>xist in the eventual data.
model <- aba_model() %>%
set_outcomes('CDRSB', 'ADAS13', 'MMSE')
# }
Run the code above in your browser using DataLab