# \donttest{
D3.1 <- array(c(0, 1, 2, 1, 0, 1, 2, 1, 0,
0, 3, 3, 3, 0, 3, 3, 3, 0),
dim = c(3, 3, 2))
D3.2 <- array(c(1, 0, 0, 0, 1, 0, 0, 0, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1,
0, 0, 0, 0, 0, 0, 0, 0, 0),
dim = c(3, 3, 3))
GetRectCmat(D3.1, D3.2)
# }
Run the code above in your browser using DataLab