# 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)) })