evaluate | R Documentation |
Function to calculate the drawdown in time or space from a set of parameters determined using
the fit
function.
evaluate(ptest, model, test.time = TRUE, n = 50)
ptest |
A pumping_test object |
model |
Character string specifying the model used to calculate the drawdown |
test.time |
A logical flag indicating if the evaluation of the pumping test data needs to be calculated at the drawdown times |
n |
Number of points used to calculate the drawdown if test.time = FALSE |
A list with the entries
t: Vector with the time
s: Vector with the calculated drawdown
dsdlnt: Vector with the derivative of drawdown with respect to the log of time
Oscar Garcia-Cabrejo khaors@gmail.com
Other base functions: additional.parameters<-
,
confint.pumping_test
,
confint_bootstrap
,
confint_jackniffe
,
confint_wald
, estimated<-
,
fit.optimization
,
fit.parameters<-
,
fit.sampling
, fit
,
hydraulic.parameter.names<-
,
hydraulic.parameters<-
,
model.parameters
, model<-
,
plot.pumping_test
,
plot_model_diagnostic
,
plot_sample_influence
,
plot_uncert
,
print.pumping_test
,
pumping_test
, simulate
,
summary.pumping_test
data(theis)
ptest <- pumping_test("Well1", Q = 1.3e-3, r = 200, t = theis$t, s = theis$s)
ptest.fit <- fit(ptest, "theis")
hydraulic.parameters(ptest) <- ptest.fit$hydraulic_parameters
fit.parameters(ptest) <- ptest.fit$parameters
model(ptest) <- "theis"
estimated(ptest) <- TRUE
res <- evaluate(ptest, "theis")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.