Function to estimate the initial parameters of the Theis solution

theis_solution_initial(ptest)

Arguments

ptest

Object of a pumping_test class

Value

A list with the values of \(a\) and \(t0\)

References

Theis, C. The relation between the lowering of the piezometric surface and the rate and duration of discharge of a well using groundwater storage. Transactions of the American Geophysical Union, 1935, 2, 519-524

See also

Examples

# Data from a confined aquifer data(theis) ptest <- pumping_test('Well1', Q = 1.3e-3, r = 200, t = theis$t, s = theis$s) res <- theis_solution_initial(ptest) print(res)
#> $a #> [1] 1.534881 #> #> $t0 #> [1] 245.0811 #>