# load LAS file
LASfile <- system.file("extdata", "las_chablais3.laz", package="lidaRtRee")
las_chablais3 <- lidR::readLAS(LASfile)
# set number of threads
lidR::set_lidr_threads(2)
# extract two point clouds from LAS object
llas <- lidR::clip_circle(las_chablais3,
c(974350, 974390),
c(6581680, 6581680), 10)
# normalize point clouds
llas <- lapply(llas, function(x) {
lidR::normalize_height(x, lidR::tin())
})
# computes metrics
m <- clouds_metrics(llas, ~ aba_metrics(
Z, Intensity, ReturnNumber, Classification, 2
))
head(m[,1:5])
Run the code above in your browser using DataLab