Fill in missing water quality values for non-point source (NPS) data

Usage

util_nps_fillmiswq(wq)

Arguments

wq: A data frame of water quality data returned by util_nps_getwq

Value

Input data frame with missing data filled as described above.

Details

Missing end date monthly values are filled with prior 5 year averages. Then, missing monthly values are linearly interpolated using na.approx. This function will need to be updated each RA period with correct averages.

Examples

if (FALSE) { # \dontrun{
manopth <- system.file('extdata/nps_wq_manco.txt', package = 'tbeploads')
pincopth <- system.file('extdata/nps_wq_pinco.txt', package = 'tbeploads')
wq <- util_nps_getwq(c('2021-01-01', '2023-12-31'), mancopth = manopth,
  pincopth = pincopth, verbose = F)
wq <- util_nps_fillmiswq(wq)
} # }