다 변수 미분 R

Question

누군가가 R에서 간단한 수학 연산을 도와 줄 수 있습니까?

내가하고 싶은 모든

은 다음과 같습니다

나는이 기능의 함수

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

및 파생 상품이 나는에 '...'갭을 채우기 위해 필요한 것은

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

다 변수 파생 상품의 결과를 얻으시겠습니까? 문제는 벡터 c (x1, x2, x3 ... xn)의 값을 처리 할 수 ​​없다는 것입니다.

결과적으로 각 단계마다 "for"사이클을 써야합니다. 파생 결과

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