R/propTable.R

Defines functions propTable

Documented in propTable

#' @export propTable
propTable <-
function (x, margin = NULL) 
{
    if (length(margin)) 
        .sweep0(x, margin, marginTable(x, margin), "/")
    else x/sum(x)
}
rje42/rje documentation built on Dec. 10, 2018, 7:01 a.m.