# Example 1 - part of the data set used by Leao et al. (2005)
data(skp1994)
ex1 <- with(skp1994,
llwr(theta = Water, psi = Potential, Bd = BD, Pr = PR,
particle.density = 2.65, air.porosity = 0.1,
critical.PR = 2, psi.FC = 0.01, psi.WP = 1.5))
ex1
# Example 2 - specifying the parameters (Leao et al., 2005)
a <- c(-0.9175, -0.3027, -0.0835) # Silva et al. model of water content
b <- c(0.0827, -1.6087, 3.0570) # Busscher's model
ex2 <- with(skp1994,
llwr(theta = Water, psi = Potential, Bd = BD, Pr = PR,
particle.density = 2.65, air.porosity = 0.1,
critical.PR = 2, psi.FC = 0.01, psi.WP = 1.5,
pars.water = a, pars.busscher = b))
ex2
# End (not run)
Run the code above in your browser using DataLab