tests/testthat/test-geneSim.R

library(DOSE)

context("geneSim")

test_that("geneSim", {
    res <-  sapply(c("Wang", "Lin", "Jiang", "Resnik", "Rel"), function(mm) geneSim('2524', '3070', measure=mm))
    expect_true(all(res >=0) && all(res <=1))
})
YuLab-SMU/DOSE documentation built on Nov. 3, 2024, 9:37 p.m.