# NOT RUN {
# A valid file properly populated
LASfile <- system.file("extdata", "Topography.laz", package="lidR")
las = readLAS(LASfile)
plot(las)
# pmin = 15 because it is an extremely tiny file
# strongly decimated to reduce its size. There are
# actually few multiple returns
flightlines <- sensor_tracking(las, pmin = 15)
plot(las@header)
plot(flightlines, add = TRUE)
x <- plot(las)
add_flightlines3d(x, flightlines, radius = 10)
# Load only the data actually useful
las <- readLAS(LASfile,
select = "xyzrntp",
filter = "-drop_single -thin_pulses_with_time 0.001")
flightlines <- sensor_tracking(las)
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 <- sensor_tracking(ctg)
plot(flightlines)
# }
Run the code above in your browser using DataLab