## conifer wood
obj <- tprTrees(spp=c(1, 8),
Dm=list(30, 40),
Hm=list(1.3, 1.3),
Ht=c(30, 40))
tprAssortment(obj)
pars <- parSort(stH=0.2, Lxh=c(1, 1.5), fixN=2, fixL=4)
(ass <- tprAssortment(obj, pars))
plot(obj, assort = ass)
## deciduous wood
obj <- tprTrees(spp=c(15),
Dm=list(40),
Hm=list(1.3),
Ht=c(40))
tprAssortment(obj)
pars <- parSort(n=length(obj), Lxh=c(1), Hsh=10, Az=10)
ass <- tprAssortment(obj, pars)
plot(obj, assort=ass)
Run the code above in your browser using DataLab