# NOT RUN {
a <- array(data = 1:16, dim = c(2, 2, 2, 2))
Array2Matrix(a = a)
attr(a, "mp") <- c(1, 2, 2, 1)
Array2Matrix(a = a)
Array2Matrix(ArrayAround(data = a, mp = c(1, 1, 1, 1),
size = c(1, 1, 2, 2)))
# }
Run the code above in your browser using DataLab