## ベクトルまで分解するunlistを使うとできたっぽいけど期待されている答えではないかも、、

a <- matrix(data = 1:9, nrow = 3)

(b <- list(a,a))

unlist(b)

test.array <- array(data = unlist(b), dim = c(3,3,2))

test.array

test.array[3,3,]


## ちなみに、リストのまま処理してはだめ?
sapply(X = b, FUN = function(y) {y[3,3]})