# \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)
# simplyfy the skeleton
aRchi = aRchi::simplify_skeleton(aRchi,seg_length = 0.05)
# plot the simplifyed skeleton
plot(aRchi,show_point_cloud = TRUE)
# }
Run the code above in your browser using DataLab