# NOT RUN {
LASfile <- system.file("extdata", "Topography.laz", package="lidR")
las <- readLAS(LASfile, select = "xyzrn", filter = "-inside 273450 5274350 273550 5274450")
# Using the Progressive Morphological Filter
# --------------------------------------
# (Parameters chosen mainly for speed)
ws <- seq(3,12, 4)
th <- seq(0.1, 1.5, length.out = length(ws))
las <- classify_ground(las, pmf(ws, th))
#plot(las, color = "Classification")
#' # Using the Cloth Simulation Filter
# --------------------------------------
# (Parameters chosen mainly for speed)
mycsf <- csf(TRUE, 1, 1, time_step = 1)
las <- classify_ground(las, mycsf)
#plot(las, color = "Classification")
# }
Run the code above in your browser using DataLab