if (has_sympy()) {
A <- matrix(c("a", "0", "0", "1"), 2, 2) %>% as_sym()
QRdecomposition(A)
eigenval(A)
eigenvec(A)
inv(A)
det(A)
A <- matrix(c("a", "b", "c", "d"), 2, 2) %>% as_sym()
evec <- eigenvec(A)
evec
evec1 <- evec[[1]]$eigvec
evec1
simplify(evec1)
lapply(evec, function(l) simplify(l$eigvec))
A <- as_sym("[[1, 2, 3], [4, 5, 6]]")
pinv(A)
}
Run the code above in your browser using DataLab