Как я не делаю замену матрицы в 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

Как сделать матрицу ZZ в R?Я пытаюсь использовать функцию (), но у меня ничего не получается ...

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