# NOT RUN {
########################################
#kernel density estimates
########################################
data ("geyser", package="MASS")
attach (geyser)
#adapted from the KernSmooth package
fh <- kbvpdf (duration, waiting, 0.7, 7)
plot (fh,, TRUE)
plot (fh, TRUE, z.axis=TRUE, ref.arrows=FALSE)
detach (geyser)
########################################
#ECDF
########################################
attach (trees)
Fh <- ebvcdf (Height, Volume)
plot (Fh)
plot (Fh, FALSE)
Fh (median (Height), mean (Volume) )
detach (trees)
# }
Run the code above in your browser using DataLab