# NOT RUN {
LASfile <- system.file("extdata", "Topography.laz", package="lidR")
las = readLAS(LASfile, select = "xyz")
ws = seq(3,21, 3)
th = seq(0.1, 2, length.out = length(ws))
lasground(las, "pmf", ws, th)
plot(las, color = "Classification")
# }
Run the code above in your browser using DataLab