# NOT RUN {
m = matrix(c(10, 20, 30, 30, 20, 10), nrow = 3)
colnames(m) <- c("Black", "White")
long = matrix_to_long(m, group = "race", unit = "school")
mutual_total(long, "race", "school", weight = "n")
# }
Run the code above in your browser using DataLab