fixing calculate_spectral_metrics

traitecoevo · Nov 18, 2024 · e354a12 · e354a12
1 parent 5312682
commit e354a12
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/calculate_spectral_metrics.R b/R/calculate_spectral_metrics.R
@@ -22,7 +22,7 @@
 #'   red = runif(20000, min = 0, max = 1),
 #'   red_edge = runif(20000, min = 0, max = 1),
 #'   nir = runif(20000, min = 0, max = 1))
-#' spectral_metrics <- calculate_cv(df,
+#' spectral_metrics <- calculate_spectral_metrics(df,
 #'    wavelengths = c('blue','green','red','red_edge','nir'),
 #'    rarefaction = TRUE, min_points = 5000, n = 999)
 
@@ -183,7 +183,7 @@ calculate_spectral_metrics <- function(pixel_values_df,
     sv <- calculate_sv(site_pixel_values, wavelengths = wavelengths)
     chv <- calculate_chv_nopca(site_pixel_values, wavelengths, rarefaction = rarefaction, n = n, min_points = min_points)
 
-    results <- list(CV = cv, SV = sv, CHV = chv)
+    results[[site]] <- list(CV = cv, SV = sv, CHV = chv)
   }
 
   combined_cv <- dplyr::bind_rows(lapply(results, function(x) x$CV), .id = 'site')

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