update simulation and mle code

[ml_measurement_error_public.git] / simulations / plot_dv_example.R

diff --git a/simulations/plot_dv_example.R b/simulations/plot_dv_example.R
index f69ed6c012f9f1c8576bbc0a75d92e522293ffa1..4052c38f26c8e388c37b358be24c5b93197972b4 100644 (file)
--- a/simulations/plot_dv_example.R
+++ b/simulations/plot_dv_example.R
@@ -10,8 +10,6 @@ parser <- add_argument(parser, "--infile", default="", help="name of the file to
 parser <- add_argument(parser, "--name", default="", help="The name to safe the data to in the remember file.")
 args <- parse_args(parser)
 
-
-
 summarize.estimator <- function(df, suffix='naive', coefname='x'){
 
     part <- df[,c('N',
@@ -21,8 +19,7 @@ summarize.estimator <- function(df, suffix='naive', coefname='x'){
                   paste0('B',coefname,'y.ci.lower.',suffix),
                   paste0('B',coefname,'y.ci.upper.',suffix),
                   'y_explained_variance',
-                  'Bzy',
-                  'accuracy_imbalance_difference'
+                  'Bzy'
                   ),
                with=FALSE]
     
@@ -47,7 +44,7 @@ summarize.estimator <- function(df, suffix='naive', coefname='x'){
                           variable=coefname,
                           method=suffix
                           ),
-                      by=c("N","m",'Bzy','accuracy_imbalance_difference','y_explained_variance')
+                      by=c("N","m",'Bzy','y_explained_variance')
                       ]
     
     return(part.plot)