# NOT RUN {
# Importing forest inventory data
data(ForestInv01)
# setting model parametersdbh and ht
hi<-ForestInv01[,2]
di<-ForestInv01[,3]
ht<-ForestInv01[,4]
dbh<-ForestInv01[,5]
# fitting the fifth-degree polynomial taper model
fit <- poly5Model(dbh,ht,di,hi, plotxy=TRUE)
#grid()
# }
Run the code above in your browser using DataLab