step_vadose_weeks: step_vadose_weeks

In jkennel/hydrorecipes: Hydrogeology steps

step_vadose_weeks

Description

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:rows),
                  y = as.numeric(1:rows))

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

jkennel/hydrorecipes documentation built on Dec. 24, 2024, 5:38 p.m.