# NOT RUN {
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())
dmt = shapeFit(shape = 'circle', algorithm='ransac', n=20)
inv = tlsInventory(tls, d_method = dmt)
tlsPlot(tls, inv)
# }
Run the code above in your browser using DataLab