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

谢谢您的回复。使用很方便了，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)

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