context("Ratio of matches")
test_that("calculates the value correctly", {
expect_equal(ratio_of_matches(1:4, 3:5), 2/3)
expect_equal(ratio_of_matches(letters[1:3], letters[3:4]), 0.5)
a <- sample(letters, 10, replace = TRUE)
b <- sample(letters, 10, replace = TRUE)
res <- ratio_of_matches(a, b)
expect_true(0 <= res & res <= 1)
})
test_that("works with TextReuseTextDocument", {
ny <- system.file("extdata/legal/ny1850-match.txt", package = "textreuse")
ca <- system.file("extdata/legal/ca1851-match.txt", package = "textreuse")
ny <- TextReuseTextDocument(ny, meta = list(id = "ny"))
ca <- TextReuseTextDocument(ca, meta = list(id = "ca"))
expect_is(jaccard_similarity(ny, ca), "numeric")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.