# NOT RUN {
LASfile <- system.file("extdata", "Megaplot.laz", package="lidR")
las <- readLAS(LASfile, filter = "-inside 684800 5017800 684900 5017900")
d <- grid_density(las, 5)
plot(d)
las <- retrieve_pulses(las)
d <- grid_density(las)
plot(d)
# }
Run the code above in your browser using DataLab