# NOT RUN {
LASfile <- system.file("extdata", "Megaplot.laz", package="lidR")
ctg <- readLAScatalog(LASfile, filter = "-drop_z_below 0.5")
ctg2 <- catalog_boundaries(ctg, 1, 15)
plot(ctg)
plot(ctg2, add = TRUE)
# }
Run the code above in your browser using DataLab