r - 導関数を計算し、結果を関数として使用する

Question

f = x^2 などの導関数を計算する必要があります。コードを使用しています

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

D(x^2) = 2x の出力を値を取る関数として使用するにはどうすればよいですか?

Answer 1

結果を関数に変換する方法は次のとおりです。

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

Answer 2

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