R/gera_medio_saldo.R

In mgaldino/line4PPPsim: Simulates Fiscal Impact of Subway PPP in Brazil

#' @title Roll average for balance
#'
#' @description Auxuliar function
#'
#' @param saldo A vector of balance data
#'
#' @return mean of balances
#'
#' @examples  gera_media_saldo(c(0, 100, 0))
#'
#'
#' @export gera_media_saldo

gera_media_saldo <- function(saldo) {
  saldo_media <- numeric()
  saldo_media[1] <- mean(saldo[1])

  n <- length(saldo)
  for ( i in 2:n) {
    saldo_media[i] <- mean(c(saldo[i-1], saldo[i]))
  }
  return(saldo_media)
}