library(polmineR)
use("GermaParl")

stopwords <- unname(unlist(
  noise(
    terms("GERMAPARL", p_attribute = "word"),
    stopwordsLanguage = "en"
  )
))

r <- Cooccurrences(
  .Object = "GERMAPARL", p_attribute = "word",
  left = 0L, right = 1L, stoplist = stopwords
)
decode(r)
pmi(r)