if (FALSE) {
data(lasData)
## function takes a while to run
#Extraction of the ITCs
se<-itcLiDAR(lasData$X,lasData$Y,lasData$Z,epsg=32632)
summary(se)
#Computation of the crown diameter from the crown area
se$CD_m<-2*sqrt(se$CA_m2/pi)
#AGB prediction
se$agb<-NA
se$agb<-agb(se$Height_m,se$CD_m,species=1)
summary(se)
}
Run the code above in your browser using DataLab