VFSAPLE | R Documentation |
Uses the erosion and runoff output of VFS as input to APLE.
VFSAPLE(x, soilP, OM, manureP = 25, manureSolids = 25, manureWEP = 50, manureIn = 40, fertP = 10, fertIn = 40)
x |
VFS object. |
soilP |
soil test Mehlich 3 phosphorus (mg/kg). |
OM |
soil organic matter (%). |
manureP |
manure P applied (kg/ha). |
manureSolids |
manure solids (%). |
manureWEP |
manure water-extractable phosphorus/TP (%). |
manureIn |
manure incorporated (%). |
fertP |
fertilizer phosphorus applied (kg/ha). |
fertIn |
fertilizer incorporated (%). |
The VFSAPLE
function handles unit conversion and parameter estimation. Erosion, precipitation, runoff, and field parameters from VFS
are passed to APLE
. It also runs APLE
for both pre- and post-filter strip erosion values, so the efficacy of the filter strip at phosphorus removal can be calculated.
preVFS |
APLE object for pre-filter strip erosion values. |
postVFS |
APLE object for post-filter strip erosion values. |
pErosion |
Efficacy of the filter strip at removing erosion phosphorus (%). |
pTotal |
Efficacy of the fiter strip at removing total phosphorus (%). |
Sarah Goslee
APLE
, VFS
# state college GHCN data # # weather <- read.dly(system.file("extdata", "USC00368449.dly", package = "VFS")) data("weather") # same object weather.param <- wth.param(weather, method="markov") rain.compare <- rainfall(365*2, weather.param) temp.compare <- temperature(365*2, weather.param) data(soildat) data(bufferdat) # bluegrass buffer, clay loam soil # short simulation to cut down on time required vfs.CL <- VFS(nyears = 2, thissoil = subset(soildat, Soil == "CL"), rain=rain.compare, temperature=temp.compare, thisbuffer = subset(bufferdat, Species == "bluegrass"), Duration = 2, FieldArea = 4000, VFSwidth = 10.7, VFSslope = 0.02, z = 1000, b = 1.5) print(vfs.CL) summary(vfs.CL) aple.CL <- VFSAPLE(vfs.CL, soilP = 120, OM = 2) print(aple.CL) summary(aple.CL)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.