update anlz_fibmatrix to remove groups with years less than lagyr

tbep-tech · Oct 10, 2024 · 8d5efcd · 8d5efcd
1 parent e64d0f4
commit 8d5efcd
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: tbeptools
 Title: Data and Indicators for the Tampa Bay Estuary Program
 Version: 3.0.0.9000
-Date: 2024-09-30
+Date: 2024-10-10
 Authors@R: c(
     person(given = "Marcus",
       family = "Beck",

diff --git a/R/anlz_fibmatrix.R b/R/anlz_fibmatrix.R
@@ -224,6 +224,10 @@ anlz_fibmatrix <- function(fibdata, yrrng = NULL, stas = NULL, bay_segment = NUL
       .by = c('grp', 'yr')
     ) %>%
     dplyr::arrange(grp, yr) %>%
+    dplyr::filter(
+      length(unique(yr)) >= lagyr,
+      .by = 'grp'
+    ) %>%
     dplyr::mutate(
       sumgt = stats::filter(sumgt, rep(1, lagyr), sides = 1, method = 'convolution'),
       tot = stats::filter(tot, rep(1, lagyr), sides = 1, method = 'convolution'),