tests/testthat/test_calcJaccard.R

library(epos)
context("test_calcJaccard")

test_that("Test calcJaccard if it calculates the correct vector with jaccard coefficients", {
  expect_that(calcJaccard(c(1,2,3), c(2,3,4)), equals(1-c(0.0, 1/3, 0.5)))
})

Try the epos package in your browser

Any scripts or data that you put into this service are public.

epos documentation built on Feb. 20, 2021, 9:09 a.m.