if (has_sympy()) {
A <- matrix(c("a", "0", "0", "1"), 2, 2) %>% as_sym()
do_la(A, "QR")
QRdecomposition(A)
do_la(A, "eigenval")
eigenval(A)
do_la(A, "eigenvec")
eigenvec(A)
do_la(A, "inv")
inv(A)
do_la(A, "echelon_form")
do_la(A, "rank")
do_la(A, "det") # Determinant
det(A)
}
Run the code above in your browser using DataLab