This is really sweep(x, margin, margin.table(x, margin), "/") for newbies.
sweep(x, margin, margin.table(x, margin), "/")
prop.table(x, margin)
Table like x expressed relative to margin
x
margin
Peter Dalgaard
margin.table
m<-matrix(1:4,2) m prop.table(m,1)