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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.