## univariate example
data(tempb)
fhat1 <- kdde(x=tempb[,"tmin"], deriv.order=1) ## gradient [df/dx, df/dy]
plot(fhat1, xlab="Min. temp.", col.cont=4) ## df/dx
points(20,predict(fhat1, x=20))
## bivariate example
fhat1 <- kdde(x=tempb[,c("tmin", "tmax")], deriv.order=1)
## gradient [df/dx, df/dy]
plot(fhat1, display="quiver")
fhat2 <- kdde(x=tempb[,c("tmin", "tmax")], deriv.order=2)
plot(fhat2, which.deriv.ind=2, display="persp", phi=10)
## d^2 f/(dx dy): blue=-ve, red=+ve
plot(fhat2, which.deriv.ind=2, display="filled.contour", lwd=1)
## summary curvature
s2 <- kcurv(fhat2)
plot(s2, display="filled.contour", lwd=1)
## trivariate example
data(iris)
fhat1 <- kdde(iris[,2:4], deriv.order=1)
plot(fhat1)
Run the code above in your browser using DataLab