From 33bbbead5dfd98447dc8e687635102ea41938d83 Mon Sep 17 00:00:00 2001
From: Gilberto Camara <gilberto.camara@inpe.br>
Date: Thu, 5 Oct 2023 12:19:34 -0300
Subject: [PATCH] fix slic defaults

---
 R/sits_segmentation.R | 6 +++---
 man/sits_slic.Rd      | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/R/sits_segmentation.R b/R/sits_segmentation.R
index 78f17ca98..dd71f1a7c 100644
--- 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
index 405dca778..e78ac23c8 100644
--- a/man/sits_slic.Rd
+++ b/man/sits_slic.Rd
@@ -6,12 +6,12 @@
 \usage{
 sits_slic(
   data = NULL,
-  step = 50,
+  step = 5,
   compactness = 1,
   dist_fun = "euclidean",
   avg_fun = "median",
-  iter = 20,
-  minarea = 30,
+  iter = 30,
+  minarea = 10,
   verbose = FALSE
 )
 }