R/qda.handler.R

In trinker/qdap2: Bridging the gap between qualitative data and quantitative analysis

#internal function used by trans.cloud and word.comp (not exportd)
qda.handler <-
function(x) {
    if (!is.null(comment(x))) {
        if (comment(x) %in% "freqList") {
            return(freqTab2words(x))
        } else {
            if (!comment(x) %in% "bagOwords") {
                stop("Must be a word_list object or a vector of raw words")
            } else {
                return(x)
            }
        }
    } else {
        if (is.vector(x)) {
            warning ("Not a word_listobject.")
            return(x)
        } else {
            stop("Must be a word_list object or a vector of raw words")
        }
    }
}