add stuff to get perspective scores from civil comments

[ml_measurement_error_public.git] / simulations / irr_simulation_base.R

diff --git a/simulations/irr_simulation_base.R b/simulations/irr_simulation_base.R
index ebb215b712797179fb789d0ce4f0be0d473a2ba4..ee7112a233fcc9f72c185f991e320682891c62f1 100644 (file)
--- a/simulations/irr_simulation_base.R
+++ b/simulations/irr_simulation_base.R
@@ -82,7 +82,7 @@ run_simulation <- function(df, result, outcome_formula = y ~ x + z, proxy_formul
                                   Bxy.ci.upper.loco.mle = ci.upper['x'],
                                   Bxy.ci.lower.loco.mle = ci.lower['x'],
                                   Bzy.ci.upper.loco.mle = ci.upper['z'],
-                                  Bzy.ci.lower.loco.mle = ci.upper['z']))
+                                  Bzy.ci.lower.loco.mle = ci.lower['z']))
 
     ## print(rater_formula)
     ## print(proxy_formula)