tests/testthat/test-stat_mmrm.R

In ncullen93/abaR: Automated Biomarker Analysis

test_that("print stat works", {
  mmrm <- stat_mmrm(id = 'id', time = 'time', treatment = 'x')
  expect_output(
    print(mmrm),
    NULL
  )
})

test_that("standard mmrm works", {

  # fit
  df <- adnimerge %>%
    dplyr::filter(
      VISCODE %in% c('bl','m06','m12','m24'),
      !is.na(CSF_ABETA_STATUS_bl),
      DX_bl %in% c('MCI')
    ) %>%
    dplyr::mutate(
      TREATMENT = factor(CSF_ABETA_STATUS_bl, levels=c(0,1),
                         labels=c('Placebo','Treatment')),
      ADAS13 = ADAS13 - ADAS13_bl,
      CDRSB = CDRSB - CDRSB_bl,
      MMSE = MMSE - MMSE_bl
    )

  # with treatment
  expect_error(
    model <- df %>% aba_model() %>%
      set_outcomes(CDRSB, ADAS13) %>%
      set_covariates(
        AGE, GENDER, EDUCATION
      ) %>%
      set_stats(
        stat_mmrm(id = 'RID', time = 'VISCODE', treatment = 'TREATMENT')
      ) %>%
      aba_fit(),
    NA
  )
  expect_error(
    model_summary <- model %>% aba_summary(),
    NA
  )

  # without treatment
  expect_error(
    model2 <- df %>% aba_model() %>%
      set_outcomes(CDRSB, ADAS13) %>%
      set_covariates(
        AGE, GENDER, EDUCATION
      ) %>%
      set_stats(
        stat_mmrm(id = 'RID', time = 'VISCODE')
      ) %>%
      aba_fit(),
    NA
  )
  expect_error(
    model_summary2 <- model2 %>% aba_summary(),
    NA
  )

})