Update tree.detection.single.scan.R

Molina-Valero · Nov 20, 2024 · c408c36 · c408c36
1 parent 1758a2a
commit c408c36
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/tree.detection.single.scan.R b/R/tree.detection.single.scan.R
@@ -399,7 +399,7 @@ tree.detection.single.scan <- function(data, single.tree = NULL,
 
 
     .filter <- do.call(rbind, parallel::clusterApply(cl, split(.cut, .cut$cluster),
-                                                     .sections.single.scan.2, .cut = .cut,
+                                                     .sections.single.scan, .cut = .cut,
                                                      .alpha.v = .alpha.v, .alpha.h = .alpha.h,
                                                      .dbh.min = .dbh.min, .dbh.max = .dbh.max,
                                                      slice = slice * 2, bark.roughness = bark.roughness,
@@ -409,7 +409,7 @@ tree.detection.single.scan <- function(data, single.tree = NULL,
     } else {
 
 
-      .filter <- do.call(rbind, lapply(split(.cut, .cut$cluster), .sections.single.scan.2, .cut = .cut,
+      .filter <- do.call(rbind, lapply(split(.cut, .cut$cluster), .sections.single.scan, .cut = .cut,
                                        .alpha.v = .alpha.v, .alpha.h = .alpha.h,
                                        .dbh.min = .dbh.min, .dbh.max = .dbh.max,
                                        slice = slice * 2, bark.roughness = bark.roughness,
@@ -495,7 +495,7 @@ tree.detection.single.scan <- function(data, single.tree = NULL,
 
       # Selection of those cluster belonging to trees
 
-      .filter <- do.call(rbind, lapply(split(.cut, .cut$cluster), .sections.single.scan.2, .cut = .cut,
+      .filter <- do.call(rbind, lapply(split(.cut, .cut$cluster), .sections.single.scan, .cut = .cut,
                                        .alpha.v = .alpha.v, .alpha.h = .alpha.h,
                                        .dbh.min = .dbh.min, .dbh.max = .dbh.max,
                                        slice = slice * 2, bark.roughness = bark.roughness,