# NOT RUN {
#
# restrict CV sampling between 10-20m height and use the
# "wbProxy" function with solid type = 0.9*4 (close to true taper);
# with 2 subsamples to be taken on the tree at each grid cell...
#
st = standingTree(dbh=50, solidType=4, height=25)
ag = angleGauge(baf=4)
cvhps.iz = horizontalPointCVIZ(st, ag, segBnds=c(10,20),
proxy='wbProxy', solidTypeProxy=0.9, n.s=2)
summary(cvhps.iz)
plot(cvhps.iz)
# }
Run the code above in your browser using DataLab