# 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))
x = plot(tls, size=1)
add_treePoints(x, tls, size=2)
add_treeIDs(x, tls, color='yellow', cex=2)
# }
Run the code above in your browser using DataLab