# Example 1
ex1 <- with(skp1994,
fitsoilwater4(theta = Water, psi = Potential, model = "Ross"))
ex1
summary(ex1)
# Example 2
ex2 <- with(skp1994,
fitsoilwater4(theta = Water, psi = Potential, Bd = BD, model = "Silva"))
ex2
summary(ex2)
# Not run
Run the code above in your browser using DataLab