R/PrecDailyToMonthly.R

In rhabel/modLWFB90: R-package for applying LWF-Brook90 directly from FVA-BW servers

#' Internal Helper Prec.DailyToMonthly
#'
#' ...
#'
#' @param ...
#'
#' @return Returns the desired output
#'
#'
#' @import data.table
#' @export


Prec.DailyToMonthly <- function(dat) {

  setDT(dat)
  dat[, PREC := RFAL + SFAL]
  dat[, BSTN := RFAL + SFAL - RINT - SINT]

  dat_month <- dat[,list(PREC = sum(PREC),
                         BSTN = sum(BSTN)),
  by = list(YR, MO)]
  return(dat_month)
}