run edabutilities vignettes with changes

Author: Stephanie Owen

data-raw/scripts/old scripts/test_indicators.R

@@ -47,15 +47,24 @@ range <- species_range(data = data, species)
 ###CONDITION
 
 ecodata_condition <- ecodata::condition
-condition <- species_condition(
-  data = data$survdat,
+condition <- NEesp2::species_condition(
+  data = survdat$survdat,
   LWparams = NEesp2::LWparams,
   species.codes = NEesp2::species.codes,
   by_EPU = TRUE,
   by_sex = FALSE,
-  length_break = NULL,
-  output = "soe"
+  length_break = c(0, 15),
+  output = "full"
 )
+
+bsb_15 <- condition |>
+  dplyr::filter(Species == "Black sea bass") |>
+  dplyr::rename(DATA_VALUE = MeanCond)
+
+NEesp2::plot_condition(data = bsb_15,
+                       var = "Black sea bass",
+                       return = TRUE)
+
 pkgdown::build_site()
 
 ###SPATIAL

vignettes/using_edab_utils.Rmd

@@ -120,7 +120,7 @@ dd <- EDABUtilities::make_2d_deg_day_ts(data.in = c(here::here('data-raw','glory
                                             '01750', '01760'),
                    ref.value = 14,
                    type = 'above',
-                   statistic = 'nd',
+                   metric = 'nd',
                    write.out = F)
 
 dd_df = dplyr::bind_rows(dd)