# NOT RUN {
# A valid file properly populated
LASfile <- system.file("extdata", "Topography.laz", package="lidR")
las = readLAS(LASfile,
select = "xyzrntp",
filter = "-drop_single -thin_pulses_with_time 0.001")
#plot(las)
# pmin = 15 because it is an extremely small file
# strongly decimated to reduce its size. There are
# actually few multiple returns
flightlines <- track_sensor(las, Roussel2020(pmin = 15))
plot(las@header)
plot(flightlines, add = TRUE)
#x <- plot(las)
#add_flightlines3d(x, flightlines, radius = 10)
# }
# NOT RUN {
# With a LAScatalog "-drop_single" and "-thin_pulses_with_time"
# are used by default
ctg = readLAScatalog("folder/")
flightlines <- track_sensor(ctg, Roussel2020(pmin = 15))
plot(flightlines)
# }
Run the code above in your browser using DataLab