R语言中怎样对函数求导

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

f<-function(x) 1+1/x-log(x)
对f求导得到的g仍为函数
求指导

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏4 回帖

关键词：R语言

写成expression。然后用求导D

g <- deriv(y ~ 1 + 1/x - log(x), "x", function(x){})
虽然g在R中的输出看起来很凌乱，但它的确就是你想要的f的导函数， 可以试试:
g(1) # as expected, it is -2.

用D（）函数吧
比如我们要求函数x 2 +2x+3 的导函数的话，我们可以先定义一个表达式（expression）：
fun=expression(x^2+2*x+3) #定义函数为表达式

接下来用D()函数对fun进行求导就可以了：
D(fun,"x")
2 * x + 2
偏导数
> fun=expression(x^2+y^2+x*y)
> D(fun,"x")
2 * x + y
> D(fun,"y")
2 * y + x
> D(D(fun,"x"),"x")
[1] 2
> D(D(fun,"x"),"y")
[1] 1

求函数x 2 +y 2 +x?y 在(2,3)处的关于x 的一阶偏导数的值
> x=2;y=3
> eval(D(expression(x^2+y^2+x*y),"x"))
[1] 7
trig.exp <- expression(sin(cos(x + y^2)))
D.sc <- D(trig.exp, "x")
all.equal(D(trig.exp[[1]], "x"), D.sc)

xiaodata 发表于 2016-5-22 15:50
用D（）函数吧
比如我们要求函数x 2 +2x+3 的导函数的话，我们可以先定义一个表达式（expression）：
fun ...

为什么输入
fun=expression(x^2+2*x+3)
D(fun,"x")
之后，显示
Error: could not find function "D" 啊？