Added sanity-check to setup

* The `sanity-check` procedure makes sure that the values for aps (in case of nature-evidence or critical-interaction) or starting cps (=thx-signal) are reasonable i.e. that theory1 is actually the better theory.

Author: daimpi

SocNetABM.nlogo

@@ -17,6 +17,7 @@ to setup [rs]
   clear-all
   set rndseed rs
   random-seed rs
+  check-sanity
   init-hidden-variables
   init-converge-reporters
   set th-i-signal list th1-signal th2-signal
@@ -110,6 +111,24 @@ end
 
 
 
+; some basic sanity checks, which ensure that the chosen model parameters are
+; sensible
+to check-sanity
+  ifelse critical-interaction or nature-evidence-frequency > 0 [
+    if th1-aps < th2-aps [
+      error "th1-aps must be higher than th2-aps (th1 is the better theory)"
+    ]
+  ][
+   if th1-signal < th2-signal [
+    error "th1-signal must be higher than th2-signal (th1 is the better theory)"
+   ]
+  ]
+end
+
+
+
+
+
 ; initializes the hidden variables (= not set in the interface)
 to init-hidden-variables
   set confidence-cutoff 1 - (1 / 10 ^ 4)