library(epilepsyontologysimilarities)
context("test_calcDice")
test_that("Test calcDice if it calculates the correct vector with dice coefficients", {
expect_that(calcDice(c(1,2,3), c(2,3,4)), equals(1-c(0.0, 0.5, 2/3)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.