
Create bay segment column for non-point source (NPS) load data
Source:R/util_nps_segment.R
      util_nps_segment.RdCreate bay segment column for non-point source (NPS) load data
Value
The same data frame with an additional segment column indicating the major bay segment associated with each row
Details
This is a simple helper function used internally with anlz_nps and util_nps_lusumm to create a segment column based on the basin and bay_seg columns.
Examples
dat <- data.frame(
  basin = c("LTARPON", "TBYPASS", "02300500", "206-4", "EVERSRES", "UNKNOWN"),
  bay_seg = c(1, 2, 3, 4, 7, NA)
)
util_nps_segment(dat)
#>      basin bay_seg          segment
#> 1  LTARPON       1    Old Tampa Bay
#> 2  TBYPASS       2 Hillsborough Bay
#> 3 02300500       3 Middle Tampa Bay
#> 4    206-4       4  Lower Tampa Bay
#> 5 EVERSRES       7    Manatee River
#> 6  UNKNOWN      NA             <NA>