# NOT RUN {
file = system.file("extdata", "pine.laz", package="TreeLS")
tls = readTLS(file) %>%
tlsNormalize %>%
stemPoints(stm.hough())
dmt = shapeFit(shape = 'circle', algorithm='ransac', n=20)
inv = tlsInventory(tls, d_method = dmt)
### quick plot
tlsPlot(tls, inv)
### customizable plots
x = plot(tls)
add_stemPoints(x, tls, color='red', size=3)
add_tlsInventory(x, inv, color='yellow')
add_segmentIDs(x, tls, color='white', cex=2, pos=4)
# }
Run the code above in your browser using DataLab