VFS-package | R Documentation |
Empirical models for runoff, erosion, and phosphorus loss across a vegetated filter strip, given slope, soils, climate, and vegetation (Gall et al., 2018) <doi:10.1007/s00477-017-1505-x>. It also includes functions for deriving climate parameters from measured daily weather data, and for simulating rainfall. Models implemented include MUSLE (Williams, 1975) and APLE (Vadas et al., 2009 <doi:10.2134/jeq2008.0337>).
The DESCRIPTION file:
This package was not yet installed at build time.
Index: This package was not yet installed at build time.
This package implements runoff, erosion, filter strip, and phosphorus loss models in R.
NA
Maintainer: NA
Gall, H. E., Schultz, D., Veith, T. L, Goslee, S. C., Mejia, A., Harman, C. J., Raj, C. and Patterson, P. H. (2018) The effects of disproportional load contributions on quantifying vegetated filter strip sediment trapping efficiencies. Stoch Environ Res Risk Assess 32(8), 2369–2380. doi: 10.1007/s00477-017-1505-x
# 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*3, weather.param) temp.compare <- temperature(365*3, weather.param) data(soildat) data(bufferdat) # bluegrass buffer, clay loam soil vfs.CL <- VFS(nyears = 3, 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.