tests/testthat/test-0-11-m4-recovery.R

testthat::test_that("M4 recovery is five-scenario and inert by default", {
  r <- multimodal_m4_recovery()
  testthat::expect_s3_class(r, "eye_multimodal_m4_recovery")
  testthat::expect_false(r$executed)
  testthat::expect_equal(nrow(r$design), 5L)
})

Try the eyeprocess package in your browser

Any scripts or data that you put into this service are public.

eyeprocess documentation built on Sept. 28, 2026, 5:08 p.m.