# NOT RUN {
LASfile <- system.file("extdata", "Megaplot.laz", package="lidR")
las = readLAS(LASfile, select = "xyz")
las = lasfiltersurfacepoints(las, 1)
plot(las)
lassmooth(las, 5, "gaussian", "circle", sigma = 2)
plot(las)
lasunsmooth(las)
plot(las)
# }
Run the code above in your browser using DataLab