R语言求偏导，R语言求导求助,R语言求导结果如何直接导出参与运算

大家好，请教一个问题，我想把求偏导算出来的结果4提出来怎么实现呢？谢谢
求偏导的结果怎么提出来有人能告诉我吗？假如公式中有两变量x和a1

> x<-2
> a1<-3
> a<-deriv(~a1*x^2,"a1") #对a1求偏导
> eval(a)#输出结果
[1] 12
attr(,"gradient")
     a1
[1,]  4

1. fun = function(x,a1){
   
2.   a = eval(deriv(~a1*x^2,'a1'))
   
3.   re = data.frame(Deriv=a[1:length(a)],
   
4.                   gradient=attr(a,'gradient')[1:length(a)])
   
5.   return(re)
   
6. }
   
7. 
   
8. fun(2:3,3:4)

复制代码

1. fun = function(x,a1){
   
2.   a = eval(deriv(~a1*x^2,'a1'))
   
3.   return(a[1:length(a)])
   
4. }
   
5. 
   
6. fun(2:3,3:4)

复制代码

zhou1_20 发表于 2019-10-12 13:39

您好，非常感谢您的答案，我想导出的是下面红色的部分内容怎么实现呢？再次感谢您。
> x<-2
> a1<-3
> a<-deriv(~a1*x^2,"a1") #对a1求偏导
> eval(a)#输出结果
[1] 12
attr(,"gradient")
     a1
[1,]  4

zhou1_20 发表于 2019-10-11 22:17

谢谢您的回复。使用很方便了，result<-fun(2,3)即可得出函数计算结果和偏导结果。谢谢。fun(2:3,3:4)是什么意思呢？
fun = function(x,a1){
  a = eval(deriv(~a1*x^2,'a1'))
  re = data.frame(Deriv=a[1:length(a)],
                  gradient=attr(a,'gradient')[1:length(a)])
  return(re)
}

fun(2:3,3:4)

hopui2017 发表于 2019-10-12 15:19
谢谢您的回复。使用很方便了，result

向量运算，同时算fun(2,3)和fun(3,4)两个值，也可以超过两个

zhou1_20 发表于 2019-10-12 15:30
向量运算，同时算fun(2,3)和fun(3,4)两个值，也可以超过两个

谢谢