From bd15236d5dedb4067bd29e58e655c5352aca1db4 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 8 Jun 2018 16:20:40 +0200 Subject: Enable PEC porewater for the default scenario The default scenario uses soil parameters from the REACH guidance R.16, Table R.16-9. --- R/PEC_soil.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'R') diff --git a/R/PEC_soil.R b/R/PEC_soil.R index 0263e47..ea1cb71 100644 --- a/R/PEC_soil.R +++ b/R/PEC_soil.R @@ -119,7 +119,7 @@ PEC_soil <- function(rate, rate_units = "g/ha", interception = 0, PEC_units = match.arg(PEC_units) scenarios = match.arg(scenarios) sce <- switch(scenarios, - default = data.frame(rho = 1.5, T_arr = NA, theta_fc = 0.2, f_oc = 0.02, + default = data.frame(rho = 1.5, T_arr = NA, theta_fc = 0.2, f_om = 1.724 * 0.02, f_sce = 1, f_mod = 1, row.names = "default"), EFSA_2015 = if (porewater) soil_scenario_data_EFSA_2015[4:6, ] else soil_scenario_data_EFSA_2015[1:3, ] -- cgit v1.2.1