## Not run:
# use(polmineR.sampleCorpus)
# bt <- partition("PLPRBTTXT", list(text_id=".*"), regex=TRUE)
# speeches <- as.speeches(bt, sAttributeDates="text_date", sAttributeNames="text_name")
# foo <- blapply(speeches, function(x, ...) slot(x, "cpos"))
# ## End(Not run)
Run the code above in your browser using DataLab