# \donttest{
tc = create_tcorpus(sotu_texts, doc_column='id')
hits = search_features(tc, c('War# war* OR army OR bomb*','Terrorism# terroris*',
'Economy# econom* OR bank*','Education# educat* OR school*'))
plot(hits)
# }
Run the code above in your browser using DataLab