if (has_sympy()) {
x <- symbol("x")
y <- symbol("y")
f <- 3*x^2 + x*y^2
der(f, x)
g <- der(f, list(x, y))
g
dim(g)
G <- matrify(g)
G
dim(G)
h <- der(g, list(x, y))
h
dim(h)
as.character(h)
H <- matrify(h)
H
dim(H)
g %>%
der(list(x, y)) %>%
der(list(x, y)) %>%
der(list(x, y))
}
Run the code above in your browser using DataLab