add provisional tree ID

weecology · Sep 13, 2024 · c558bc3 · c558bc3
1 parent 0bf35be
commit c558bc3
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 2 deletions.
diff --git a/.DS_Store b/.DS_Store
diff --git a/R/crop_lidar_plots.R b/R/crop_lidar_plots.R
@@ -77,7 +77,10 @@ crop_lidar_plots<-function(site_name="TEAK",year="2018"){
     #if null, return NA
     if(nrow(clipped_las@data)==0){
       next
-      }
+    }
+
+    # add predicted treeid from segment_trees
+    clipped_las<-lidR::segment_trees(las, lidR::li2012(dt1 = 1,dt2=2,hmin=2,speed_up = 10))
 
     lidR::writeLAS(clipped_las,cname)
     print(cname)

diff --git a/R/segment_trees.R b/R/segment_trees.R
@@ -59,7 +59,7 @@ segment_trees<-function(las,algorithm="watershed",chm=chm,plots=F, max_cr_factor
     tree = lidR::filter_poi(crowns, !is.na(treeID))
 
     if(plots){
-      plot(tree, color = "treeID", colorPalette = pastel.colors(100), size = 1)
+      plot(tree, color = "treeID", pal = pastel.colors(100), size = 1)
     }
 
   }

diff --git a/analysis/.DS_Store b/analysis/.DS_Store