lasR_developerTools.R

In hansoleorka/lasR: Handy functions for forest inventory researches using airborne laser scanning

library(roxygen2)
roxygenize(package.dir="/home/hanso/Dropbox/GitHub/lasR")
library(tools)
resaveRdaFiles("D:\\github\\lasR\\data\\las.rda")


data(las)
#Density metrics
dens <- laser.density(las$dz,las$ID,gtv=2)
#Height distibution metrics"/home/hanso/Dropbox/GitHub/lasR"
dist <- laser.distribution(las$dz,las$ID,gtv=2)
X <- laser.metrics(las$dz,las$ID,gtv=2)

#Metrics from only first of many and single echoes
first <- laser.metrics(las$dz[las$r==1],las$ID[las$r==1],gtv=2,suffix=".F")
names(first)
#Merics from last of many and single echoes
last <- laser.metrics(las$dz[las$r==las$n],las$ID[las$r==las$n],gtv=2,suffix=".L")
names(last)