Closed trinker closed 7 years ago
library(termco) library(dplyr) cats <- list( hc = c('care', 'shealth'), time = c('smoment'), other = c('guys') ) model <- presidential_debates_2012 %>% slice(1) %>% with(term_count(dialogue, grouping.var = TRUE, cats)) model model %>% as_terms() #error cats <- list( hc = c('care', 'health'), time = c('moment'), other = c('guys') ) model <- presidential_debates_2012 %>% slice(1) %>% with(term_count(dialogue, grouping.var = TRUE, cats)) model %>% classify(3) #returns matrix