如何在R中不替换矩阵？

Question

    z1  z2
Z1= z11 z12
    z21 z22
    z31 z32

使用Z1矩阵，我想像这样制作新的ZZ矩阵

       zz1      zz2      zz3      zz4
 ZZ= z11*z11  z11*z12  z12*z11  z12*z12
     z21*z21  z21*z22  z22*z21  z12*z12
     z31*z31  z31*z32  z32*z31  z12*z12

如何在R中制作ZZ矩阵？我尝试了（）函数，但我失败了......

Answer 1

Z1 <- matrix(1:6, ncol = 2)

#      [,1] [,2]
# [1,]    1    4
# [2,]    2    5
# [3,]    3    6

cbind(Z1[,1]*Z1[, c(1, 2, 2)], Z1[1, 2]^2)

#      [,1] [,2] [,3] [,4]
# [1,]    1    4    4   16
# [2,]    4   10   10   16
# [3,]    9   18   18   16