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