# NOT RUN {
# A valid file properly populated
LASfile <- system.file("extdata", "Topography.laz", package="lidR")
las <- readLAS(LASfile)
# pmin = 15 because it is an extremely tiny file
# strongly decimated to reduce its size. There are
# actually few multiple returns
sensor <- sensor_tracking(las, pmin = 15)
# Here the effect is virtually null because the size of
# the sample is too tiny to notice any effect of range
las <- lasrangecorrection(las, sensor, Rs = 2000)
# }
Run the code above in your browser using DataLab