R/ncutWORD.R

Defines functions ncutWORD

#helper function for word_list (not exported)
ncutWORD <-
function(freqWORDS.DF, cut.n = 15) {
    FREQ <- NULL
    if (nrow(freqWORDS.DF) > cut.n) {
        subset(freqWORDS.DF, FREQ >= freqWORDS.DF[cut.n, "FREQ"])
    } else {
        freqWORDS.DF
    }
}
trinker/qdap documentation built on Sept. 30, 2020, 6:28 p.m.