step_vadose_weeks — step_vadose_weeks • hydrorecipes

Weeks 1979 solution

Usage

step_vadose_weeks(
  .rec,
  time,
  air_diffusivity = 0.2,
  thickness = 40,
  precision = 1e-12,
  inverse = FALSE,
  role = "predictor",
  ...
)

Arguments

.rec: the R6 recipe object.
time: vector time elapsed time from start of pressure change
air_diffusivity: double vadose zone air diffusivity
thickness: double vadose zone thickness
precision: double stop the sum when precision is reached
inverse: double whether the response is invers
role: character - the name of the role
...: additional arguments

Value

an updated recipe

References

Weeks, E.P., 1979. Barometric fluctuations in wells tapping deep unconfined aquifers. Water Resources Research, 15(5), pp.1167-1176.

Examples

formula <- as.formula(y~x)

n <- 100
dat <- data.frame(x = as.numeric(1:n),
                  y = as.numeric(1:n))

frec1 = recipe(formula = formula, data = dat) |>
  step_vadose_weeks(time = x,
                    air_diffusivity = 0.8,
                    thickness = 5,
                    precision = 1e-12) |>
  plate()