# NOT RUN {
prep.ph.data ()
gfh <- pmfuv.cat (crime.type, n.arrests)
gFht <- qfuv.cat (crime.type, n.arrests)
plot (gfh, freq=TRUE)
ph.mode (gfh)
ph.mode (gfh, level.names=TRUE)
gFht (0.5)
gFht (0.5, category=TRUE)
# }
Run the code above in your browser using DataLab