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 Aug. 15, 2017, 7:43 a.m.