obj <- tprTrees(spp=c(1, 3, 8, 15),
Dm=list(c(30, 28), c(30, 28), c(30, 28), c(30, 28)),
Hm=list(c(1.3, 5), c(1.3, 5), c(1.3, 5), c(1.3, 5)),
Ht = rep(30, 4))
tprHeight(obj, Dx = c(30, 7), bark=TRUE)
tprHeight(obj, Dx = c(30, 7), bark=FALSE)
## no cartesion product between obj and Dx, i.e. cp=FALSE
## Dx is recycled if necessary
tprHeight(obj, Dx = c(30, 7), bark=FALSE, cp=FALSE)
Run the code above in your browser using DataLab