Convert an aba summary to a nicely formatted table

This function allows you to format an aba summary in the same way which it is printed to the console using the print function. However, only one dataframe will result (i.e., the tables will not be split by group - outcome - stat combinations).

Usage

# S3 method for abaSummary
as_table(object)

Arguments

object

abaSummary. The aba summary to format as a table.

Value

a tibble

Examples

# 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()
#> [1] "PET_ABETA_STATUS_bl ~ AGE + GENDER + EDUCATION"
#> [1] "PET_ABETA_STATUS_bl ~ AGE + GENDER + EDUCATION + PLASMA_PTAU181_bl"
#> [1] "PET_ABETA_STATUS_bl ~ AGE + GENDER + EDUCATION + PLASMA_NFL_bl"
#> [1] "PET_ABETA_STATUS_bl ~ AGE + GENDER + EDUCATION + PLASMA_PTAU181_bl + PLASMA_NFL_bl"

# default aba summary
model_summary <- model %>% aba_summary()

# convert summary to table
my_table <- model_summary %>% as_table()