乘以2D矩阵以获得R中的3D矩阵

Question

所以我有一个代码，我一直试图用来获得2x2x6848 3D矩阵。但是我在使循环工作方面遇到了一些麻烦。任何帮助表示赞赏。

        > t2
           [1] 6847

        > dim(A)
           [1] 2 2
        > dim(F4)
           [1] 6848    2
        > dim(backward2)
            [1] 6848    2
        > dim(D)
             [1] 6848    2

         x <- array(, dim=c(6848, 2,2 ))
         t2<- t-1
         for (i in 1:t2){
         x[i,,]=A*(t(F4[t2,])%*%(backward2[t2+1,]*D[t2+1,])))}

我认为这与此有关：

           (A*(t(F4[1,])))
           Error in A * (t(F4[1, ])) : non-conformable arrays