R/makePercentTable.R

#' Function for creating a crosstabs
#'
#' Internal function that creates percentage or proportion tables crosstabs in a flexible manner.
#' @keywords crosstab, pecents


makePercentTable <- function(tbl, type,  row.vars, col.vars, percentages) {

    a <- length(row.vars)
    b <- length(col.vars)
    mrgn <- switch(type,
                   column.pct = c(row.vars[-a], col.vars),
                   row.pct = c(row.vars, col.vars[-b]),
                   joint.pct = c(row.vars[-a], col.vars[-b]),
                   total.pct = NULL)
    tbl <- prop.table(tbl, mrgn)
    if (percentages) {
        tbl <- tbl * 100
    }
    tbl
}
SOC345/lehmansociology documentation built on May 9, 2019, 11:41 a.m.