fix bug

pbs-assess · Jun 18, 2024 · 5faee5e · 5faee5e
1 parent 7b2703c
commit 5faee5e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/load-iphc-dat.R b/R/load-iphc-dat.R
@@ -95,6 +95,8 @@ load_iphc_dat <- function(species = NULL) {
     )) |>
     dplyr::mutate(effective_skates = case_when(
       .data$species_common_name == "pacific halibut" & .data$year == 2012 ~ NA,
-      .default = effective_skates * (hooks_observed / hooks_retrieved)
+      .data$species_common_name != "pacific halibut" & .data$sample_type == "20 hooks" ~
+        effective_skates * (hooks_observed / hooks_retrieved),
+      .default = effective_skates
       )) # see eqn G.4 in Anderson et al. 2019
 }