Fixing several data entry errors

bpbond · Sep 27, 2024 · 63f9d52 · 63f9d52
1 parent ebaca87
commit 63f9d52
Show file tree

Hide file tree

Showing 3 changed files with 23 additions and 23 deletions.
diff --git a/R/srdb_check.R b/R/srdb_check.R
@@ -155,7 +155,7 @@ with(srdb, {
 	check_bounds(Age_disturbance, c(0, 999))
 	check_labels(Ecosystem_state, c("Managed", "Unmanaged", "Natural", ""))
 
-	# Ecosystem_type is really varied, unfortunately
+	# Ecosystem_type is also varied
 	unmanaged_ag <- srdb$Ecosystem_type == "Agriculture" & srdb$Ecosystem_state != "Managed"
 	if(any(unmanaged_ag)) {
 		stop("Non-managed agriculture in rows: ", paste(which(unmanaged_ag), collapse = " "))    
@@ -186,7 +186,7 @@ with(srdb, {
 	check_bounds(MAT, c(-30, 55))
 	check_bounds(MAP, c(0, 9999))
 	check_bounds(PET, c(0, 9999))
-	check_bounds(Study_temp, c(-30, 40))
+	check_bounds(Study_temp, c(-30, 46))
 	check_bounds(Study_precip, c(0, 9999))
 	# TODO: meas_method one of a few values
 	check_bounds(Meas_interval, c(0.01, 365))

diff --git a/calculations/14964 Li STE 2020.xlsx b/calculations/14964 Li STE 2020.xlsx