Update age-1 help; default to joining up biomasses when don't have un…

…certainty (think only affects age-1 hake for now) as easier to see.

R/data.R

@@ -712,18 +712,15 @@
 ##' from California to British Columbia.
 ##'
 ##' See `?hake_recruitment` for further details and references, and explanations
-##' of `hake_total_biomass_age_1_2024`.
+##' of `hake_total_biomass_age_1_2024`. Credible intervals were not easily
+##' available but may be included in future updates.
 ##'
 ##' @format A tibble also of class `pacea_biomass` with columns:
 ##' \describe{
 ##'   \item{year:}{year of the estimate of total age-1 biomass (all females and
 ##'   males), where the estimate is for the start of the year}
-##'   \item{low:}{low end (2.5th percentile) of the 95\% credible interval for
-##'   age-1 biomass; not available (easily) so `NA` for all years}
 ##'   \item{median:}{median estimate of age-1 biomass, in thousands of tonnes at
 ##'   the start of the year}
-##'   \item{high:}{high end (97.5th percentile) of the 95\% credible interval for
-##'   age-1 biomass; not available (easily) so `NA` for all years}
 ##'  }
 ##'
 ##' @examples

R/plot-pacea-biomass.R

@@ -99,7 +99,15 @@ plot.pacea_biomass <- function(obj,
                  obj_lub[[value]], # [[]] returns a vector not a tibble
                  xlab = xlab,
                  ylab = ylab,
-                 ...)
+                 type = median_type,
+                 pch = median_pch,
+                 col = median_line_col,
+                 lty = median_line_lty,
+                 lwd = median_line_lwd,,
+                 ...)      # for hake age-1 (no error) it's easier to see them
+                           # joined up,
+                           # even though it's really recruitment which I prefer
+                           # to not join
   }
 
   if(attr(obj_lub, "axis_name") == "Pacific Hake spawning biomass (million t)"){