use seed

b-cubed-eu · Jul 24, 2024 · 4d8040a · 4d8040a
1 parent 0b27d70
commit 4d8040a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tests/testthat/test-apply_polygon_sampling_bias.R b/tests/testthat/test-apply_polygon_sampling_bias.R
@@ -4,6 +4,7 @@ n_points <- 4
 xlim <- c(3841000, 3842000)
 ylim <- c(3110000, 3112000)
 
+set.seed(123)
 occurrences_sf <- data.frame(
   lat = runif(n_points, ylim[1], ylim[2]),
   long = runif(n_points, xlim[1], xlim[2])