inst/scripts/geys3d.q

In sm: Smoothing Methods for Nonparametric Regression and Density Estimation

#	This script may take a long time to execute on
#	some computers.  The default grid size for
#	evaluation of the estimate is 12.  This can be
#	increased by adding an argument such as "ngrid=20"
#	to sm.density.

with(geys3d, {
par(mfrow=c(1,2))
plot(Waiting, Duration)
sm.density(geys3d)
par(mfrow=c(1,1))
})