# NOT RUN {
ph.data.prep ()
fh.gmix <- pmfc.gmixp (species, cbind (sepal.length, sepal.width),
conditions = c (sepal.length=6, sepal.width=3) )
Fht.gmix <- qfc.gmixp (species, cbind (sepal.length, sepal.width),
conditions = c (sepal.length=6, sepal.width=3) )
ph.mode (fh.gmix)
gmode (fh.gmix)
Fht.gmix (0.5)
Fht.gmix (0.5, category=TRUE)
# }
Run the code above in your browser using DataLab