Derivate numeriche di una funzione definita arbitrariamente

Question

Vorrei trovare le derivate numeriche di una funzione bivariata.

• La funzione è definita da me
• devo prime derivate rispetto ad ogni argomento e attraversare derivata seconda

Esiste un pacchetto o funzione incorporata per fare questo?

Answer 1

Installare e caricare il pacchetto numDeriv.

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 

(Il mio esempio è trivariata piuttosto che bivariata, ma sarà ovviamente lavorare per una funzione bivariata pure.) Vedere le pagine di aiuto per maggiori informazioni sul modo in cui il gradiente e calcoli in particolare dell'Assia sono fatto.