# NOT RUN {
LASfile <- system.file("extdata", "Megaplot.laz", package="lidR")
las <- readLAS(LASfile)
las <- retrieve_pulses(las)
las
las <- retrieve_flightlines(las)
#plot(las, color = "flightlineID")
# }
Run the code above in your browser using DataLab