計算導數並將結果用作函數

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