# NOT RUN {
dir <- system.file("extdata/legal", package = "textreuse")
corpus <- TextReuseCorpus(dir = dir)
m1 <- pairwise_compare(corpus, ratio_of_matches, directional = TRUE)
pairwise_candidates(m1, directional = TRUE)
m2 <- pairwise_compare(corpus, jaccard_similarity)
pairwise_candidates(m2)
# }
Run the code above in your browser using DataLab