# NOT RUN {
LASfile <- system.file("extdata", "Topography.laz", package="lidR")
las = readLAS(LASfile)
dtm = grid_terrain(las, algorithm = tin())
ttops <- tree_detection(las, lmf(ws = 5))
plot_dtm3d(dtm)
x = plot(las)
add_dtm3d(x, dtm)
add_treetops3d(x, ttops)
# }
# NOT RUN {
library(magrittr)
plot(las) %>% add_dtm3d(dtm) %>% add_treetops3d(ttops)
# }
Run the code above in your browser using DataLab