ndoc(subset(inaugCorpus, Year>1980))
ndoc(dfm(subset(inaugCorpus, Year>1980), verbose=FALSE))
mydfm <- dfm(subset(inaugCorpus, Year>1980), verbose=FALSE)
nfeature(mydfm)
nfeature(trim(mydfm, minDoc=5, minCount=10))
Run the code above in your browser using DataLab