kwb.hantush (version 0.3.0)

example1: USGS verification example: model parameterisation (multiple distances)

Description

USGS verification example: model parameterisation (multiple distances)

Usage

example1(x = c(0, 0.3, 3.3, 6.6, 10, 20, 25, 30, 40, 50, 75, 100, 150,
  200), baseProps = baseProps_ex1(), dbg = FALSE)

Arguments

x

distance from the center of the recharge basin in the x direction (L)

baseProps

basic model properties as retrieved by baseProps_ex1()

dbg

If True additional messages on debug messages

References

p.23, https://pubs.usgs.gov/sir/2010/5102/support/sir2010-5102.pdf

Examples

# NOT RUN {
res <- example1()
if (FALSE) {
  #### Head for each time step (defined with parameter "numberTimeSteps)
  xyplot(head ~ x | as.factor(sprintf("%f days", timeSteps)),
    data = res$timeSteps,
    type = "b",
    las = 1,
    as.table = TRUE
  )
  #### Head at end of simulation
  plot(head ~ x,
    data = res$simTime,
    type = "b",
    las = 1
  )
}
#### Water level increase at end of simulation & compare to alternative models
modelComparison <- compareModelResults(conf = res)
plotModelComparison(modelComparison = modelComparison)
# }