计算导数并将结果用作函数

Question

我需要计算一个导数，比如f = x ^ 2。我正在使用代码

D(expression(x^2), 'x')

如何使用D（x ^ 2）= 2x的输出作为取值的函数？

Answer 1

k<-deriv(~ x^2, "x")
x <- -1:10
eval(k)

Answer 2

以下是将结果转换为函数的方法：

> myfun <- function(x) {}
> body(myfun) <- D( expression(x^2), 'x' )
> 
> myfun( 1:10 )
 [1]  2  4  6  8 10 12 14 16 18 20