Nothing
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))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.