Function to define an intepreted pumping_test object

estimated(x) <- value

Arguments

x

A pumping_test object

value

Logical value

Value

The pumping_test object with estimated variable set to TRUE

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 model(ptest.theis) <- 'theis' estimated(ptest.theis) <- TRUE