diff --git a/tests/testthat/test-fit.R b/tests/testthat/test-fit.R index 46eb0e145..3547a4a81 100644 --- a/tests/testthat/test-fit.R +++ b/tests/testthat/test-fit.R @@ -1063,3 +1063,11 @@ test_that("mmrm validates contrasts argument", { "list" ) }) + +test_that("mmrm works for vignette model fit (this seems to be an issue with old openBLAS)", { + fit <- expect_silent(mmrm( + formula = FEV1 ~ RACE + SEX + ARMCD * AVISIT + us(AVISIT | USUBJID), + data = fev_data + )) + expect_true(attr(fit, "converged")) +})