riditsrefgroup: Utility to determine reference group. Primarily for internal...
In ridittools: Useful Functions for Ridit Analysis

Description Usage Arguments Value Author(s) Examples

For internal use.

1	riditsrefgroup(x, margin, ref = NULL)

`x`	matrix of counts or proportions
`margin`	margin that represents groups. 1 for rows, 2 for columns
`ref`	group to use as reference. if omitted, use totals across groups. if a vector, use it. otherwise use the group with its number (or name if available)

vector of counts/proportions to use as reference group

Eric Bohlman

## The function is currently defined as
function (x, margin, ref = NULL)
{
    if (length(ref) > 1) {
        refgroup <- ref
    }
    else if (length(ref) == 1) {
        if (margin == 1) {
            refgroup <- x[ref, ]
        }
        else {
            refgroup <- x[, ref]
        }
    }
    else {
        refgroup <- apply(x, 3 - margin, sum)
    }
  }