From 36036b5901223591e7e21e8b73d8cd1fb034f4cb Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 16 May 2017 15:43:50 +0200 Subject: Finish the Step 1 calculator including tests Some cleaning up. PELMO facilities do not currently work at my end, as I have no working wine installation on this computer --- docs/reference/soil_scenario_data_EFSA_2015.html | 40 +++++++++++++----------- 1 file changed, 21 insertions(+), 19 deletions(-) (limited to 'docs/reference/soil_scenario_data_EFSA_2015.html') diff --git a/docs/reference/soil_scenario_data_EFSA_2015.html b/docs/reference/soil_scenario_data_EFSA_2015.html index f842d08..39841ed 100644 --- a/docs/reference/soil_scenario_data_EFSA_2015.html +++ b/docs/reference/soil_scenario_data_EFSA_2015.html @@ -25,12 +25,14 @@ - + + + @@ -92,24 +94,24 @@ doi:10.2903/j.efsa.2015.4093

Examples

- 
## Not run: ------------------------------------
-#   # This is the code that was used to define the data
-#   soil_scenario_data_EFSA_2015 <- data.frame(
-#     Zone = rep(c("North", "Central", "South"), 2),
-#     Country = c("Estonia", "Germany", "France", "Denmark", "Czech Republik", "Spain"),
-#     T_arit = c(4.7, 8.0, 11.0, 8.2, 9.1, 12.8),
-#     T_arr = c(7.0, 10.1, 12.3, 9.8, 11.2, 14.7),
-#     Texture = c("Coarse", "Coarse", "Medium fine", "Medium", "Medium", "Medium"),
-#     f_om = c(0.118, 0.086, 0.048, 0.023, 0.018, 0.011),
-#     theta_fc = c(0.244, 0.244, 0.385, 0.347, 0.347, 0.347),
-#     rho = c(0.95, 1.05, 1.22, 1.39, 1.43, 1.51),
-#     f_sce = c(3, 2, 2, 2, 1.5, 1.5),
-#     f_mod = c(2, 2, 2, 4, 4, 4),
-#     stringsAsFactors = FALSE,
-#     row.names = c("CTN", "CTC", "CTS", "CLN", "CLC", "CLS")
-#   )
-#   save(soil_scenario_data_EFSA_2015, file = '../data/soil_scenario_data_EFSA_2015.RData')
-## ---------------------------------------------
+    
not_run({
+    # This is the code that was used to define the data
+    soil_scenario_data_EFSA_2015 <- data.frame(
+      Zone = rep(c("North", "Central", "South"), 2),
+      Country = c("Estonia", "Germany", "France", "Denmark", "Czech Republik", "Spain"),
+      T_arit = c(4.7, 8.0, 11.0, 8.2, 9.1, 12.8),
+      T_arr = c(7.0, 10.1, 12.3, 9.8, 11.2, 14.7),
+      Texture = c("Coarse", "Coarse", "Medium fine", "Medium", "Medium", "Medium"),
+      f_om = c(0.118, 0.086, 0.048, 0.023, 0.018, 0.011),
+      theta_fc = c(0.244, 0.244, 0.385, 0.347, 0.347, 0.347),
+      rho = c(0.95, 1.05, 1.22, 1.39, 1.43, 1.51),
+      f_sce = c(3, 2, 2, 2, 1.5, 1.5),
+      f_mod = c(2, 2, 2, 4, 4, 4),
+      stringsAsFactors = FALSE,
+      row.names = c("CTN", "CTC", "CTS", "CLN", "CLC", "CLS")
+    )
+    save(soil_scenario_data_EFSA_2015, file = '../data/soil_scenario_data_EFSA_2015.RData')
+})
 
 # And this is the resulting dataframe
 soil_scenario_data_EFSA_2015
#>        Zone        Country T_arit T_arr     Texture  f_om theta_fc  rho f_sce
-- 
cgit v1.2.1