# NOT RUN {
ph.data.prep ()
gfh <- pmfuv.cat (crime.type, n.arrests)
cfh.nondefault <- pdfuv.cks (height, smoothness=0.5)
ph.mode (gfh)
ph.mode (gfh, TRUE)
ph.mode (gfh, TRUE, freq=TRUE)
ph.mode (gfh, category=TRUE)
gmode (gfh)
ph.mode (cfh.nondefault)
ph.modes (cfh.nondefault)
# }
Run the code above in your browser using DataLab