if (requireNamespace("quanteda", quietly = TRUE)) {
# Inspect the source texts
summary(data_corpus_MPexamples)
# Subset to one manifesto
quanteda::corpus_subset(data_corpus_MPexamples, country == "NZ")
# Gold-standard segmentation for the NZ manifesto
quanteda::corpus_subset(data_corpus_MPexamplesseg,
quanteda::docvars(data_corpus_MPexamplesseg,
"docid") == "NZ_NP_1972")
}
Run the code above in your browser using DataLab