R中的多变量导数

Question

在R？

中，有人能用简单的数学运算来帮助我吗？

我想做的就是：

我有一个功能

f <-(a1*x1+a2*x2+…+an*xn~x1&…&xn)

以及此功能的衍生物

df<-D(f(x1…xn)~…)

我需要填写＆＃39; ...＆＃39;差距获得多变量导数的结果？ 问题是我无法解决向量c的值（x1，x2，x3 ...... xn）

因此，我需要在每个步骤上写一个＆＃34; for＆＃34; -cycle，它会得到衍生的结果

Answer 1

你有固定的n吗？如果是这样，您可以使用parse转换表达式中的字符串：

x = c('x1','x2','x3')
a = c('a1','a2','a3')
expr=parse(text=paste(paste(x, a, sep="*"), collapse="+"))

#> sapply(x, function(u) D(expr,u))
#$x1
#a1

#$x2
#a2

#$x3
#a3