# NOT RUN {
### single tree
file = system.file("extdata", "spruce.laz", package="TreeLS")
tls = readTLS(file) %>%
tlsNormalize %>%
stemPoints(stm.hough(h_base = c(.5,2)))
plot(tls, color='Stem')
### entire forest plot
file = system.file("extdata", "pine_plot.laz", package="TreeLS")
tls = readTLS(file) %>%
tlsNormalize %>%
tlsSample
map = treeMap(tls, map.hough())
tls = treePoints(tls, map, trp.crop(circle=FALSE))
tls = stemPoints(tls, stm.hough(pixel_size = 0.03))
tlsPlot(tls)
# }
Run the code above in your browser using DataLab