# NOT RUN {
prep.ph.data ()
###########
#univariate
###########
uvfh <- pdfuv.cks (height)
uvFh <- cdfuv.cks (height)
uvFht <- qfuv.cks (height)
plot (uvfh)
plot (uvFh)
plot (uvfh, TRUE)
uvFht (c (0.25, 0.5, 0.75) )
ph.mode (uvfh)
ph.mode (uvfh, TRUE)
#############
#multivariate
#############
mvfh <- pdfmv.cks (trees2 [,-2])
mvFh <- cdfmv.cks (trees2 [,-2])
plot (mvfh, TRUE)
plot (mvfh,, TRUE)
plot (mvFh, TRUE)
plot (mvFh, fb = c (0.2, 0.8), clabs = c ("A", "B") )
##############
#conditional
#(single model)
###############
cons.c1 <- c (height=25, girth=35)
cfh <- pdfc.cks (trees2, conditions=cons.c1)
cFh <- cdfc.cks (trees2, conditions=cons.c1)
cFht <- qfc.cks (trees2, conditions=cons.c1)
plot (cfh)
plot (cFh)
plot (cfh, TRUE)
cFht (c (0.25, 0.5, 0.75) )
ph.mode (cfh)
ph.mode (cfh, TRUE)
#############
#conditional
#(two models)
#############
cons.c2 <- cbind (height=25:26, girth=35:36)
cfhs <- pdfc.cks (trees2, conditions=cons.c2, as.list.cset=TRUE)
plot (cfhs [[1]])
#########################
#multivariate-conditional
#########################
cons.mvc <- c (depth=311)
mvcFh <- cdfmvc.cks (quakes2, conditions=cons.mvc)
# }
Run the code above in your browser using DataLab