if (has_sympy()) {
A <- matrix_sym(2, 2, "a")
B <- matrix_sym(2, 2, "b")
II <- matrix_sym_diag(2)
EE <- eye_sym(2,2)
JJ <- ones_sym(2,2)
kronecker(A, B)
kronecker(A, B, FUN = "+")
kronecker(II, B)
kronecker(EE, B)
kronecker(JJ, B)
}
Run the code above in your browser using DataLab