Function to assign the fit parameters (a, t0 and others depending on the model) to a pumping_test object

fit.parameters(x) <- value

Arguments

x

A pumping_test object

value

A list with the parameters obtained by the fit procedure

Value

The pumping_test object with the fit parameters

See also

Examples

data(theis) ptest.theis <- pumping_test('Well1', Q = 1.38e-2, r = 250, t = theis$t, s = theis$s) ptest.theis.fit <- fit(ptest.theis, 'theis') hydraulic.parameters(ptest.theis) <- ptest.theis.fit$hydraulic_parameters fit.parameters(ptest.theis) <- ptest.theis.fit$parameters