我如何获得函数的衍生物？

Question

如何获得以下功能的衍生物？

g <- expression(x^2)
derivg <- D(g, 'x')
derivg
# 2 * x
g1 <- derivg(2)
# Error: could not find function "derivg"

我想在x = 2处找到导数。

Answer 1

derivg是一个电话，而不是一个功能。要在x = 2进行评估，您可以

eval(derivg, list(x = 2))
[1] 4