maybe a real test

traitecoevo · Nov 15, 2024 · cb8ae52 · cb8ae52
1 parent 5194198
commit cb8ae52
Showing 1 changed file with 13 additions and 2 deletions.
diff --git a/tests/testthat/test-test_spectral.R b/tests/testthat/test-test_spectral.R
@@ -1,3 +1,14 @@
-test_that("multiplication works", {
-  expect_equal(2 * 2, 4)
+test_that("calculate_cv works", {
+  set.seed(123)
+  df <- data.frame(
+  site_name = rep(c("site_one", "site_two", "site_three", "site_four"), each = 5000),
+  aoi_id = 1,
+  blue = runif(20000, min = 0, max = 1),
+  green = runif(20000, min = 0, max = 1),
+  red = runif(20000, min = 0, max = 1),
+  red_edge = runif(20000, min = 0, max = 1),
+  nir = runif(20000, min = 0, max = 1))
+  pixelvalues <- calculate_cv(df,
+  wavelengths = c('blue','green','red','red_edge','nir'),
+  rarefaction = TRUE, min_points = 5000, n = 999)
 })