## univariate example
x <- rnorm.mixt(n=100, mus=1, sigmas=1, props=1)
fhat1 <- kdde(x=x, h=hpi(x), deriv.order=1) ## df/dx
fhat2 <- kdde(x=x, h=hpi(x), deriv.order=2) ## d^2 f/dx^2
## bivariate example
data(unicef)
H.scv <- Hscv(x=unicef)
fhat1 <- kdde(x=unicef, H=H.scv, deriv.order=1) ## gradient vector
fhat2 <- kdde(x=unicef, H=H.scv, deriv.order=2) ## vectorised Hessian matrix
Run the code above in your browser using DataLab