X-Git-Url: https://code.communitydata.science/ml_measurement_error_public.git/blobdiff_plain/979dc14b6861ae31f00d56392fd5b8cf69f17333..d0c5766bdf867a81a2477d2cac1d40812110af90:/simulations/irr_simulation_base.R?ds=inline

diff --git a/simulations/irr_simulation_base.R b/simulations/irr_simulation_base.R
index ebb215b..ee7112a 100644
--- 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)