From df360265a22763a4fca94506f5731266589c1d81 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ciencia=20de=20Datos=20=E2=80=A2=20GECI?=
 <ciencia.datos@islas.org.mx>
Date: Wed, 19 Nov 2025 09:28:35 -0800
Subject: [PATCH 1/3] =?UTF-8?q?=F0=9F=9B=91=F0=9F=A7=AA=20Fail=20tests?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 tests/testthat/test_cli.R | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/tests/testthat/test_cli.R b/tests/testthat/test_cli.R
index 17b6f34..686c9f1 100644
--- a/tests/testthat/test_cli.R
+++ b/tests/testthat/test_cli.R
@@ -18,6 +18,17 @@ describe("process fisheries data", {
   })
 })
 
+describe("plot potential site", {
+  output_path <- "/workdir/tests/potential_site.png"
+  gps_path <- "/workdir/tests/data/bl_sample_10_percent_5_ids.csv"
+  options <- list("data-path" = gps_path, "config-path" = config_path, "output-path" = output_path, "percentage-distribution" = 50, "n-iterations" = 10, "population-size" = 10)
+  it("write figure", {
+    testtools::if_exist_remove(output_path)
+    plot_potential_site(options)
+    expect_true(testtools::exist_output_file(output_path))
+    testtools::if_exist_remove(output_path)
+  })
+})
 describe("plot ussage area by a proportion of the total birds", {
   output_path <- "/workdir/tests/usage_area.png"
   gps_path <- "/workdir/tests/data/bl_sample_10_percent_5_ids.csv"

From 05ea4f768e224298076de6dd8b2529e240f9e5ac Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ciencia=20de=20Datos=20=E2=80=A2=20GECI?=
 <ciencia.datos@islas.org.mx>
Date: Wed, 19 Nov 2025 14:41:37 -0800
Subject: [PATCH 2/3] =?UTF-8?q?=E2=9C=85=20Pass=20tests?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/cli.R                   | 12 ++++++++++++
 R/representative_assess.R | 10 ++++++++++
 2 files changed, 22 insertions(+)

diff --git a/R/cli.R b/R/cli.R
index f30ea2f..c5065a8 100644
--- a/R/cli.R
+++ b/R/cli.R
@@ -31,6 +31,18 @@ plot_usage_area_by_individual <- function(options) {
   grDevices::dev.off()
 }
 
+plot_potential_site <- function(options) {
+  config_content <- read_config(options[["config-path"]])
+  gps_data <- readr::read_csv(options[["data-path"]], show_col_types = FALSE)
+  percentage_distribution <- options[["percentage-distribution"]]
+  n_iterations <- options[["n-iterations"]]
+
+  wrapper <- Track2KBA_Wrapper$new(gps_data, config_content, percentage_distribution)
+  representative_assess <- wrapper$get_representative_assess(percentage_distribution, n_iterations)
+  site <- wrapper$get_potential_site(representative_assess, percentage_distribution, population_size = options[["population-size"]])
+  track2KBA::mapSite(site)
+  ggplot2::ggsave(filename = options[["output-path"]], device = "png")
+}
 
 #' Plot Representative Assessment
 #'
diff --git a/R/representative_assess.R b/R/representative_assess.R
index dd828ab..4f73d29 100644
--- a/R/representative_assess.R
+++ b/R/representative_assess.R
@@ -50,6 +50,16 @@ Track2KBA_Wrapper <- R6::R6Class(
         polyOut = FALSE
       )
       return(Site)
+    },
+    get_potential_site = function(repr, percentage_distribution, population_size) {
+      Site <- track2KBA::findSite(
+        KDE = self$KDE$KDE.Surface,
+        represent = repr$out,
+        levelUD = percentage_distribution,
+        popSize = population_size,
+        polyOut = TRUE
+      )
+      return(Site)
     }
   )
 )

From 9fc80f58a8e39fe7c0be448be9ccd7e4455e37c4 Mon Sep 17 00:00:00 2001
From: Mario Villasante <mario.villasante@islas.org.mx>
Date: Thu, 11 Dec 2025 13:22:32 -0800
Subject: [PATCH 3/3] =?UTF-8?q?=F0=9F=9A=9A=F0=9F=97=82=EF=B8=8F=20change?=
 =?UTF-8?q?=20data=20for=20tests?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 tests/testthat/test_cli.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/testthat/test_cli.R b/tests/testthat/test_cli.R
index b0eea36..de73f5d 100644
--- a/tests/testthat/test_cli.R
+++ b/tests/testthat/test_cli.R
@@ -20,7 +20,7 @@ describe("process fisheries data", {
 
 describe("plot potential site", {
   output_path <- "/workdir/tests/potential_site.png"
-  gps_path <- "/workdir/tests/data/bl_sample_10_percent_5_ids.csv"
+  gps_path <- "/workdir/tests/data/raw_gps_albatros_5_ids.csv"
   options <- list("data-path" = gps_path, "config-path" = config_path, "output-path" = output_path, "percentage-distribution" = 50, "n-iterations" = 10, "population-size" = 10)
   it("write figure", {
     testtools::if_exist_remove(output_path)