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