LASfile <- system.file("extdata", "Megaplot.laz", package="lidR")
las <- readLAS(LASfile, select = "xyz")
las <- decimate_points(las, highest(1))
#plot(las)
las <- smooth_height(las, 5, "gaussian", "circle", sigma = 2)
#plot(las)
las <- unsmooth_height(las)
#plot(las)
Run the code above in your browser using DataLab