if (has_sympy()) {
x <- symbol('x')
e <- 2*x^2
e
subs(e, "x", "2")
subs(e, x, 2)
subs(e, list(x = 2))
A <- matrix_sym(2, 2, "a")
B <- matrix_sym(2, 2, "b")
e <- A %*% A
subs(e, A, B)
}
Run the code above in your browser using DataLab