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