Smoothed exponential stores

Multiple exponential stores with pre- and post- smoothing on 2nd and 3rd stores

maexpuh.sim(
  U,
  delay = 0,
  tau_s = 0,
  tau_q = 0,
  tau_3 = 0,
  v_s = 1,
  v_q = NA,
  v_3 = 0,
  series = 0,
  loss = 0,
  Xs_0 = 0,
  Xq_0 = 0,
  X3_0 = 0,
  w_s = 7,
  w_3 = 30,
  pars = NULL,
  return_components = FALSE,
  na.action = na.pass,
  epsilon = hydromad.getOption("sim.epsilon")
)

Arguments

U

placeholder

delay

placeholder

tau_s

placeholder

tau_q

placeholder

tau_3

placeholder

v_s

placeholder

v_q

placeholder

v_3

placeholder

series

placeholder

loss

placeholder

Xs_0

placeholder

Xq_0

placeholder

X3_0

placeholder

w_s

placeholder

w_3

placeholder

pars

placeholder

return_components

placeholder

na.action

placeholder

epsilon

placeholder

Value

Placeholder

See also

expuh

Author

Joseph Guillaume

Examples

if (FALSE) {
## Pre and post filtered Xs
Us[] <- filter(U, rep(1 / w_s, w_s), sides = 1)
Us[1:(w_s - 1)] <- cumsum(U[1:(w_s - 1)]) / 1:(w_s - 1)
Xstemp[] <- filter_loss(beta_s * U, alpha_s,
  loss = lossVal,
  init = Xs_0
)
Xs[] <- filter(Xstemp, rep(1 / w_s, w_s), sides = 1)
Xs[1:(w_s - 1)] <- cumsum(Xstemp[1:(w_s - 1)]) / 1:(w_s - 1)
}


## Xs and X3 uses rolling mean effective rainfall as input
## only series=0 is allowed