# \donttest{
# import a point cloud
tls=system.file("extdata","Tree_2_point_cloud.las",package = "aRchi")
tls = lidR::readLAS(tls)
aRchi = aRchi::build_aRchi()
aRchi = aRchi::add_pointcloud(aRchi,point_cloud = tls)
# build a skeleton from the point cloud
aRchi = aRchi::skeletonize_pc(aRchi)
# smooth the skeleton
aRchi = aRchi::smooth_skeleton(aRchi)
# add the diameter to the skeleton
aRchi = aRchi::add_radius(aRchi)
# plot the QSM
plot(aRchi,skeleton = FALSE,show_point_cloud = FALSE)
# }
Run the code above in your browser using DataLab