A1 <- "log(x) + exp(y)"
sym(A1)
# y: Ln(x)+Exp(y)
A2 <- matrix(c(1, 2, 3, "a", "sqrt(b)", "sin(c)"), ncol=2, nrow=3)
A2
# [,1] [,2]
# [1,] "1" "a"
# [2,] "2" "sqrt(b)"
# [3,] "3" "sin(c)"
sym(A2)
# {{ 1, a},
# { 2, Sqrt(b)},
# { 3, Sin(c)}}
Run the code above in your browser using DataLab