fix comments in anlz_fibmatrix, remove extra global variable

R/anlz_fibmatrix.R

@@ -247,7 +247,7 @@ anlz_fibmatrix <- function(fibdata, yrrng = NULL, stas = NULL, bay_segment = NUL
     levs <- segs
   }
 
-  # get geomean, proportion of sites/bay segments > 400 cfu / 100mL, and prob of exceedence
+  # get geomean, proportion of sites/bay segments > threshold, and prob of exceedence
   # handles lagged calculations
   dat <- fibdata %>%
     dplyr::filter(station %in% stas) %>%
@@ -284,7 +284,7 @@ anlz_fibmatrix <- function(fibdata, yrrng = NULL, stas = NULL, bay_segment = NUL
     ) %>%
     dplyr::filter(!is.na(sumgt))
 
-  # Put stations into binomial test groups based on significant exceedances of 400cfu criteria
+  # Put stations into binomial test groups based on significant exceedances of threshold criteria
   dat$MWQA <- NA
   dat$MWQA[dat$exceed_10_prob >= 0.10] <- 'A'
   dat$MWQA[dat$exceed_10_prob < 0.10 & dat$exceed_30_prob >= 0.10] <- 'B'

R/globalVariables.R

@@ -67,7 +67,7 @@ globalVariables(c("Chlorophyll_aQ", "Latitude", "Longitude", "SampleTime", "Samp
                   "Fecal_Coliform", "Fecal_ColiformQ", "Total_Coliform", "Total_ColiformQ",
                   "entero", "ecoli", "fcolif", "totcol", "areasfib", "Var1", "Var2", "colnm",
                   "indnm", "brk", "cls", "conc", "exced", "gmean", "MWQA", "station_tot",
-                  "sumgt400", "yearfac", "nyrs", "ActivityDepthHeightMeasure.MeasureUnitCode",
+                  "yearfac", "nyrs", "ActivityDepthHeightMeasure.MeasureUnitCode",
                   "ActivityDepthHeightMeasure.MeasureValue", "chla_target", "chla_val",
                   "la_target", "la_val", "MonitoringLocationTypeName", "loadest", "out1",
                   "v", "z", "ActivityLocation.LatitudeMeasure", "ActivityLocation.LongitudeMeasure",