我试着对一个表达式求导：

x = read.csv("export.csv", header=F)$V1
f = expression(-7645/2* log(pi) - 1/2 * 
       sum(log(w+a*x[1:7644]^2)) + (x[2:7645]^2/(w + 
       a*x[1:7644]^2)),'a')
D(f, 'a')

x是一个简单的整数向量，a和w是我试图通过推导找到的变量。

"Function '`[`' is not in Table of Derivatives"

由于这是我第一次使用R，我现在不知道该怎么做，我假设R在表达式中的和函数有问题？
在遵循了这个建议之后，我现在做了以下事情：

y <- x[1:7644]
z <- x[2:7645]

f = expression(-7645/2* log(pi) - 
       1/2 * sum(log(w+a*y^2)) + (z^2/(w + a*y^2)), 'a')

推导这个给我带来了错误“和不在导数表中”。我如何确保表达式考虑了y和z的每个值？
另一项更新：

y <- x[1:7644]
z <- x[2:7645]

f = expression(-7645/2* log(pi) - 1/2 * log(w+a*y^2) + 
       (z^2/(w + a*y^2)))

d = D(f, 'a')

uniroot(eval(d), c(0, 1000))

我已经删除了“sum”函数，只输入了y和z。现在，有两个问题：
a）如何确定这仍然是预期行为？
B）Uniroot似乎不喜欢“w”和“a”，因为它们只是符号。我该如何解决这个问题？我得到的错误是“object 'w' not found”