tests/testthat/test_createJaccardFrameEpSO.R

In ZBMEDLABS/epilepsyontologysimilarities: Epilepsy Ontology Similarities

library(epilepsyontologysimilarities)
context("test_createJaccardFrameEpSO")

epso <-  c(2,3,4)
esso <- c(1,3,4)
epi <- c(1,2,4)

testframe <- data.frame(Elements = 1:length(epso),
                        ESSO = calcJaccard(esso, epso),
                        EPILONT = calcJaccard(epi, epso))
test_that("Test createJaccardFrameEpSO creates the right data.frame", {
  expect_that( createJaccardFrameEpSO (epso, esso, epi), equals(testframe))
})