# 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"))
# }
Run the code above in your browser using DataLab