# NOT RUN {
x <- APLE(soilP = 127, clay = 17, OM = 6, precip = 35, runoff = 6,
erosion = 7, manureP = 25, manureSolids = 25, manureWEP = 50,
manureIn = 40, fertP = 10, fertIn = 40)
print(x)
summary(x)
# }
Run the code above in your browser using DataLab