# NOT RUN {
use("polmineR.sampleCorpus")
P <- partition("PLPRBTTXT", text_year = "2009", pAttribute = "word")
y <- cooccurrences(P, query = "Arbeit")
y[1:25]
y[,c("word", "ll")]
y[1:25, "word"]
y[1:25][["word"]]
y[which(y[["word"]] %in% c("Arbeit", "Sozial"))]
y[ y[["word"]] %in% c("Arbeit", "Sozial") ]
# }
Run the code above in your browser using DataLab