This is really sweep(x, margin, margin.table(x, margin), "/") for newbies, except that if margin has length zero, then one gets x/sum(x).
prop.table(x, margin = NULL)
| Parameter | Description |
|---|---|
x |
table |
margin |
index, or vector of indices to generate margin for |
# NOT RUN {
m <- matrix(1:4, 2)
m
prop.table(m, 1)
# }