if (FALSE) {
y <- wfdf(DATA$state, DATA$person, stopwords = c("your", "yours"),
margins = TRUE)
prop(wfm(y), 4)[1:10, ] #as a proportion
prop(wfm(y), 4, TRUE)[1:10, ] #as a percentage
heatmap(prop(wfm(y), 4))
wdstraj <- word_stats(rajSPLIT$dialogue, rajSPLIT$person)
prop(wdstraj$gts[, -1], 5)[1:15, 1:6]
}
Run the code above in your browser using DataLab