2013-08-28 12 views

cevap

11

numDeriv paketini yükleyin ve yükleyin.

library(numDeriv) 
f <- function(x) { 
    a <- x[1]; b <- x[2]; c <- x[3] 
    sin(a^2*(abs(cos(b))^c)) 
} 
grad(f,x=1:3) 
## [1] 0.14376097 0.47118519 -0.06301885 
hessian(f,x=1:3) 
##   [,1]  [,2]  [,3] 
## [1,] 0.1422651 0.9374675 -0.12538196 
## [2,] 0.9374675 1.8274058 -0.25388515 
## [3,] -0.1253820 -0.2538852 0.05496226 

(My örnek ziyade bivariate daha trivariate, ama belli ki. Yanısıra iki değişkenli fonksiyon için çalışacak) degrade ve özellikle Hessen hesaplamalar yapılır konusunda daha fazla bilgi için yardım sayfalarına bakın.

İlgili konular