x <- array(0, dim = c(2,3,3)) # 2 x 3 x 3 array
x[,,1] <- c(1,2,2,4,3,6)
x[,,2] <- c(2,4,4,8,6,12)
x[,,3] <- c(3,6,6,12,9,18)
a <- matrix(1, nrow = 3, ncol = 2)
y <- bracket.prod(a, x) # a 3 x 3 x 3 array
y
Run the code above in your browser using DataLab