context("Candidate pairs")
dir <- system.file("extdata/legal", package = "textreuse")
corpus <- TextReuseCorpus(dir = dir)
m <- pairwise_compare(corpus, ratio_of_matches, directional = TRUE)
pairs <- pairwise_candidates(m)
test_that("returns a data frame with correct properties", {
expect_equal(nrow(pairs), 6)
expect_is(pairs, "data.frame")
expect_is(pairs, "tbl_df")
expect_is(pairs, "textreuse_candidates")
expect_named(pairs, c("a", "b", "score"))
})
test_that("can be converted to matrix", {
m <- as.matrix(pairs)
expect_is(m, "matrix")
expect_equal(names(corpus), colnames(m))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.