tests/testthat/test-controlEM.R

test_that("check temporary directory",{
    expect_error(controlEM(tempDir = file.path(tempdir(),'dirdoesntexist')))
    expect_true(dir.exists(controlEM()$tempDir))
})
plbaldoni/epigrahmm documentation built on Oct. 14, 2023, 5:13 a.m.