Description Usage Arguments References Examples
USGS verification example: model parameterisation (multiple distances)
1 2 | 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)
|
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 |
p.23, https://pubs.usgs.gov/sir/2010/5102/support/sir2010-5102.pdf
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | 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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.