X-Git-Url: https://code.communitydata.science/ml_measurement_error_public.git/blobdiff_plain/46e2d1fe4876a9ed906b723f9e5f74fcc949e339..979dc14b6861ae31f00d56392fd5b8cf69f17333:/simulations/plot_dv_example.R

diff --git a/simulations/plot_dv_example.R b/simulations/plot_dv_example.R
index f69ed6c..4052c38 100644
--- 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)