powered by

kron(a, b)

(n*p x m*q

a

(n x m

b

(p x q)

a <- diag(1, 2, 2) b <- matrix(1:4, 2, 2) kron(a, b) kron(b, a)

Run the code above in your browser using DataLab