# NOT RUN {
y <- ipf2_block(row_tot= c(30,20,30,10,20,5,0,10,5,5,5,10),
col_tot = c(45,10,10,5,5,10,50,5,10,0,0,0),
block_tot = matrix(data = c(0,0 ,50,0, 35,0,25,0, 10,10,0,0, 10,10,0,0),
nrow = 4, byrow = TRUE),
block = block_matrix(x = 1:16, b = c(2,3,4,3)))
addmargins(y$mu)
# }
Run the code above in your browser using DataLab