# NOT RUN {
n <- LETTERS[1:4]
m0 <- matrix(data = c(0, 100, 30, 70, 50, 0, 45, 5, 60, 35, 0, 40, 20, 25, 20, 0),
nrow = 4, ncol = 4, dimnames = list(orig = n, dest = n), byrow = TRUE)
addmargins(m0)
multi_comp(m = m0)
# }
Run the code above in your browser using DataLab