R function: prop.table

options("digits"=2)

m <- matrix (
       c(  1, 3, 1,
           7, 3, 5),
       ncol  = 3,
       byrow = TRUE
)

prop.table(m)
#      [,1] [,2] [,3]
# [1,] 0.05 0.15 0.05
# [2,] 0.35 0.15 0.25

prop.table(m, 1)
#      [,1] [,2] [,3]
# [1,] 0.20  0.6 0.20
# [2,] 0.47  0.2 0.33

prop.table(m, 2)
#      [,1] [,2] [,3]
# [1,] 0.12  0.5 0.17
# [2,] 0.88  0.5 0.83