fix: uses stats::sd()

nmfs-fish-tools · Mar 28, 2024 · 4952dcd · 4952dcd
1 parent 89c9a0b
commit 4952dcd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/example_perf_metrics.R b/R/example_perf_metrics.R
@@ -52,7 +52,7 @@ get_avg_catch <- function(datfile, yrs) {
 #' }
 get_catch_sd <- function(datfile, yrs) {
   dat <- r4ss::SS_readdat(datfile, verbose = FALSE)
-  catch_var <- sd(dat[["catch"]][dat[["catch"]][["year"]] %in% yrs, "catch"])
+  catch_var <- stats::sd(dat[["catch"]][dat[["catch"]][["year"]] %in% yrs, "catch"])
 }
 
 #' Example Performance Metric: Calculate the coefficient of variation of catch
@@ -72,7 +72,7 @@ get_catch_sd <- function(datfile, yrs) {
 get_catch_cv <- function(datfile, yrs) {
   dat <- r4ss::SS_readdat(datfile, verbose = FALSE)
   catch <- dat[["catch"]][dat[["catch"]][["year"]] %in% yrs, "catch"]
-  catch_var <- sd(catch) / mean(catch)
+  catch_var <- stats::sd(catch) / mean(catch)
 }
 
 #' Example Performance Metric: calculate the average SSB over a range of years