# NOT RUN {
prep.ph.data ()
cfh3 <- pdfmv.cks (trees2)
xlim <- matrix (c (
22, 24, #height in 22 to 24
28, 38, #girth in 28 to 38
0.55, 1.05 #volume in 0.55 to 1.05
),, 2, byrow=TRUE, dimnames = list (colnames (trees), c ("a", "b") ) )
pwith (cfh3, xlim=xlim)
# }
Run the code above in your browser using DataLab