# NOT RUN {
df <- adnimerge %>% dplyr::filter(VISCODE == 'bl')
model <- df %>% 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') %>%
fit()
# no adjustment
model_summary <- model %>% aba_summary()
# default - correct within group, outcome, and stat (x4 comparisons)
model_summary_adj <- model %>%
aba_summary(adjust = aba_adjust(method='bonferroni'))
# correct within group but across outcomes (x8 comparisons)
model_summary_adj2 <- model %>%
aba_summary(adjust=aba_adjust(method='bonferroni', by = c('group')))
# correct only model P-values, not coefficient P-values
model_summary_adj3 <- model %>%
aba_summary(adjust=aba_adjust(form = c('metric')))
# }
Run the code above in your browser using DataLab