R/wtdTable.r

In weirichs/eatTools: Miscellaneous Functions for the Analysis of Educational Assessments

## quiets concerns of R CMD check regarding NSE by data.table
utils::globalVariables(c(".", "wgt", "variable"))

wtdTable <- function ( x, weights, na.rm = FALSE) {
            checkmate::assert_vector(x)
            checkmate::assert_numeric(weights, lower = 0)
            frm   <- data.frame ( variable=x, wgt=weights, stringsAsFactors=FALSE)
            if ( na.rm == TRUE ) {frm <- na.omit(frm)}
            Table <- as.data.frame(setDT(frm)[, .(n = sum(wgt)), variable])
            Table <- facToChar(Table)
            tab   <- Table[sort(Table[,"variable"],index.return=TRUE)$ix, "n"]
            names(tab) <- sort(Table[,"variable"])
            return(tab)}