fix slic defaults

e-sensing · Oct 5, 2023 · 33bbbea · 33bbbea
1 parent 0355b48
commit 33bbbea
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/R/sits_segmentation.R b/R/sits_segmentation.R
@@ -227,12 +227,12 @@ sits_segment <- function(cube,
 #' }
 #' @export
 sits_slic <- function(data = NULL,
-                      step = 50,
+                      step = 5,
                       compactness = 1,
                       dist_fun = "euclidean",
                       avg_fun = "median",
-                      iter = 20,
-                      minarea = 30,
+                      iter = 30,
+                      minarea = 10,
                       verbose = FALSE) {
     # step is OK?
     .check_int_parameter(step, min = 1, max = 500)

diff --git a/man/sits_slic.Rd b/man/sits_slic.Rd