Merge branch 'master' of code:ml_measurement_error_public

[ml_measurement_error_public.git] / simulations / irr_dv_simulation_base.R

diff --git a/simulations/irr_dv_simulation_base.R b/simulations/irr_dv_simulation_base.R
index 3f63d7a922db9b697aa0e1864e4d15438574b7b9..059473c629e961de0a3d215002fb3e9e6c0c81ab 100644 (file)
--- a/simulations/irr_dv_simulation_base.R
+++ b/simulations/irr_dv_simulation_base.R
@@ -82,7 +82,7 @@ run_simulation_depvar <- function(df, result, outcome_formula = y ~ x + z, rater
                                   Bxy.ci.upper.loco.mle = ci.upper['x'],
                                   Bxy.ci.lower.loco.mle = ci.lower['x'],
                                   Bzy.ci.upper.loco.mle = ci.upper['z'],
                                   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)
 
     print(rater_formula)
     print(proxy_formula)