use of add_attribute in tree detection

R/tree.detection.Rmd

@@ -302,7 +302,7 @@ Before computation of point cloud metrics in each segment, the whole point cloud
 # normalize point cloud
 lasn <- lidR::normalize_height(laschablais3, lidR::tin())
 # add segment id in LAS object
-lasn@data$seg.id <- raster::extract(segms[["segments.id"]], lasn@data[,1:2])
+lasn <- lidR::add_attribute(lasn, raster::extract(segms[["segments.id"]], lasn@data[,1:2]), "seg.id")
 # split las object by segment id
 lasl <- split(lasn@data,lasn@data$seg.id)
 # convert list of data.frames to list of las objects