# Parameters
a0<- 0.04338410; a1<- 0.88657485; a2<- 0.00446052;b1<- 1.978196;
b2<- -0.40676847; b3<- 3.50815520; b4<- -1.84177070;b5<- 0.19647175
coefs<-c(a0,a1,a2,b1,b2,b3,b4,b5);p.coef <- 0.25
# Tree attributes
dbh <- 40; toth <- 25
# Using the function
hl.int <- c(0.3, 1.3, 5)
dl.hat <- kozakln.fx(d=dbh,h=toth,hl=hl.int,paramod=coefs,p=p.coef)
cbind(hl.int,dl.hat)
Run the code above in your browser using DataLab