tests/testthat/test-01_modelData.R

In morseTKTD: Bayesian Inference of TKTD Models

test_that("Constant Exposure", {
    data("propiconazole")
    x <- morseTKTD::survData(propiconazole)
    expect_no_error({
        morseTKTD:::modelData(x, "SD")
    })
    expect_no_error({
        morseTKTD:::modelData(x, "IT")
    })
})

test_that("Variable Exposure", {
    data("propiconazole_pulse_exposure")
    x <- survData(propiconazole_pulse_exposure)
    expect_no_error({
        morseTKTD:::modelData(x, "SD")
    })
    expect_no_error({
        morseTKTD:::modelData(x, "IT")
    })
})