# NOT RUN {
eq <- parse(text="2*(log(sin(x)/log(x)))+x^4*log(x)+cos(y+x)")
tt <- deriv(eq, c("x", "y"), hessian=TRUE)
g <- tt%>%extract_attr_deriv(., attribute = "grad")
h <- tt%>%extract_attr_deriv(., attribute = "hessian")
# }
Run the code above in your browser using DataLab