Merge pull request #60 from springgbv/K_mais_correction

add a missing multiplier for K in maisland
AgroCares · Jan 15, 2020 · ad0eaef · ad0eaef
2 parents 6f2e0c0 + 6a48a5f
commit ad0eaef
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 4 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -13,6 +13,7 @@
 * Parameters for the evaluation of sealing are adjusted #57
 * Changes the formula to calculate nitrogen leaching and run-off #58
 * Parameters for the evaluation of nretention are adjusted #58
+* potassium index is multiplied so that the evaluation is equal for grass and maize #60
 
 ## Version 0.10.0 2019-12-13
 ### Added

diff --git a/R/potassium.R b/R/potassium.R
@@ -68,7 +68,7 @@ calc_potassium_availability <- function(A_K_CC, A_K_CEC,A_CEC_CO, A_PH_CC, A_OS_
 
   # Calculate the K availability for maize (CBGV, 2019)
   dt.maize <- dt[crop_category == 'mais']
-  dt.maize[,value := 1 - (120 - A_K_CC) / 120]
+  dt.maize[,value := (1 - (120 - A_K_CC) / 120) * 2.5]
 
   # Calculate the K availability for arable crops (Ros & Bussink, 2011)
   dt.arable <- dt[crop_category == 'akkerbouw']

diff --git a/man/calc_nleach.Rd b/man/calc_nleach.Rd
diff --git a/man/ind_nretention.Rd b/man/ind_nretention.Rd
diff --git a/man/nleach_table.Rd b/man/nleach_table.Rd