Description Usage Arguments Value Author(s) References Examples
This function optimises Green and Ampt (1911) infiltration parameters: Ks and G. It also predicts infiltration.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | greenampt(data, time, I, Ks = 0.1, G = 0.1, group = NULL)
## Default S3 method:
greenampt(data, time, I, Ks = 0.1, G = 0.1,
group = NULL)
## S3 method for class 'greenampt'
predict(object, time = NULL, ...)
## S3 method for class 'greenampt'
plot(x, xlab = "Time(Minutes)",
ylab = "Cumulative (cm)", main = NULL, layout = NULL, ...)
## S3 method for class 'greenampt'
summary(object, ...)
## S3 method for class 'greenampt'
print(x, ...)
## S3 method for class 'greenampt'
coef(object, ...)
|
data |
dataframe. It can contain data with column names of "time" and "I" |
time |
character or numeric. The name of time variable in the dataframe. If the "data" parameter contains "time", this will be ignored. The unit must be in seconds. |
I |
cumulative infiltration (I) or infiltration rate (i) [mm] |
Ks |
Hydraulic conductivity |
G |
Green and Ampt parameter that is equivalent to Sorptivity |
group |
character. The name of the group variables if the data is from different areas. |
object |
Model output object |
... |
Any other graphical parameter |
x |
a return object of the function. |
xlab |
x label of the plot |
ylab |
y label of the plot |
main |
Title of the plot |
layout |
plot layout |
Ks: Hydraulic conductivity [L]
G: Green and Ampt parameter that is equivalent to Sorptivity [LT^0.5]
predict:predicted infiltration
output: output of the group simulation
George Owusu
Green, W. A., & Ampt, G. A., 1911..4,1-24. (1911). Studies on soil physics:1. The flow of air and water through soils. Journal of Agricultural Science, 4(1-24).
1 2 3 4 5 6 7 8 9 10 11 12 | data=read.csv(system.file("ext","sys","exampleBEST.csv",package="vadose"))
greenampt1<-greenampt(data=data,time="time",I="I")
#print(gof(greenampt1))
#plot(greenampt1)
predict(greenampt1)
coef(greenampt1)
#group simulation
data=read.csv(system.file("ext","sys","infiltration2.csv",package="vadose"))
greenampt1g<-greenampt(data=data,time="minutes",I="CumInfil",group="ID")
coef(greenampt1g)
#generic function ######################################
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.