if (FALSE) {
data(lasData)
##Creation of the look-up-table
lut<-matrix(6,2,data=NA)
lut<-data.frame(lut)
names(lut)<-c("H","CD")
lut$H<-c(2,10,15,20,25,30)
lut$CD<-c(0.5,1,2,3,4,5)
## function takes a while to run
se<-itcLiDARallo(lasData$X,lasData$Y,lasData$Z,epsg=32632,lut=lut)
summary(se)
plot(se,axes=T)
## If we want to seperate the height of the trees by grayscales:
plot(se,col=gray((max(se$Height_m)-se$Height_m)/(max(se$Height_m)-min(se$Height_m))),axes=T)
## to save the data use rgdal function called writeOGR. For more help see rgdal package.
}
Run the code above in your browser using DataLab