View source: R/SoilMoistureTemperatureRegimes.R
calc_RRs_Chambers2014 | R Documentation |
Determine resilience & resistance classes (sensu Chambers et al. 2014) based on soil moisture and soil temperature regimes
calc_RRs_Chambers2014(Tregime, Sregime, MAP_mm)
Tregime |
A named numeric vector. The soil temperature regime
“STR” element of the return object of
|
Sregime |
A named numeric vector. The soil moisture regime
“SMR” element of the return object of
|
MAP_mm |
A numeric value. The mean annual precipitation in millimeters. |
A named numeric vector of 0s
and 1s
indicating
the matching resilience and resistance class. Note: All elements may be
0 if the input soil moisture/temperature regimes are not covered by
Chambers et al. 2014.
Chambers, J. C., D. A. Pyke, J. D. Maestas, M. Pellant, C. S. Boyd, S. B. Campbell, S. Espinosa, D. W. Havlina, K. E. Mayer, and A. Wuenschel. 2014. Using Resistance and Resilience Concepts to Reduce Impacts of Invasive Annual Grasses and Altered Fire Regimes on the Sagebrush Ecosystem and Greater Sage-Grouse: A Strategic Multi-Scale Approach. Gen. Tech. Rep. RMRS-GTR-326. U.S. Department of Agriculture, Forest Service, Rocky Mountain Research Station, Fort Collins, CO.
# Calculate soil moisture and soil temperature regimes
sw_in <- rSOILWAT2::sw_exampleData
sw_out <- rSOILWAT2::sw_exec(inputData = sw_in)
SMTR <- calc_SMTRs(sim_in = sw_in, sim_out = sw_out)
# Determine average across years and set aggregation agreement level
Tregime <- colMeans(SMTR[["STR"]]) >= 0.9
Sregime <- colMeans(SMTR[["SMR"]]) >= 0.9
# Calculate resilience and resistance categories
clim <- rSOILWAT2::calc_SiteClimate(
weatherList = rSOILWAT2::get_WeatherHistory(sw_in)
)
calc_RRs_Chambers2014(Tregime, Sregime, MAP_mm = 10 * clim[["MAP_cm"]])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.