tests/testthat/test-doSim.R

library(DOSE)

context("doSim")

test_that("doSim", {
    res <- sapply(c("Wang", "Lin", "Jiang", "Resnik", "Rel"), function(mm) {
        doSim("DOID:1002", "DOID:10003", measure=mm)
    })
    expect_true(all(res >= 0) && all(res <= 1))
})
GuangchuangYu/DOSE documentation built on Aug. 28, 2024, 7:49 p.m.