diff --git a/remember_grid_sweep.RDS b/remember_grid_sweep.RDS
index bc1284e..3846173 100644
Binary files a/remember_grid_sweep.RDS and b/remember_grid_sweep.RDS differ
diff --git a/resources/real_data_example.R b/resources/real_data_example.R
index 9acf664..373525a 100644
--- a/resources/real_data_example.R
+++ b/resources/real_data_example.R
@@ -62,7 +62,7 @@ plot.cc.example <- function(datalist, name, varnames=NULL, varorder=NULL, includ
     df[,Model:= factor(gsub('\\.',' ', Model), levels=rev(model.names))]
 
     df <- df[Model %in% include.models]
-    rename_models <- list("Automatic Classification"="Automated Classifications", "All Annotations"="Manual Annotations")
+    rename_models <- list("Automatic Classification"="Automated Classifications", "All Annotations"="Manual Annotations", "Annotation Sample"="Annotation Sample","Error Correction"="Error Correction")
     df <- df[, Model := factor(rename_models[as.character(df$Model)],levels=rev(unique(rename_models[model.names])))]
 
     p <- ggplot(df[variable != "Intercept"], aes(y = Estimate, x=Model, ymax=LowerCI, ymin=UpperCI, group=variable))
diff --git a/resources/robustness_check_plots.R b/resources/robustness_check_plots.R
index 0ca9a29..e827235 100644
--- a/resources/robustness_check_plots.R
+++ b/resources/robustness_check_plots.R
@@ -199,7 +199,7 @@ plot.robustness.3.dv <- function(iv, n.annotations=100, n.classifications=1000){
                      
     grid.draw(p)
 }
-plot.robustness.4.iv <- function(iv, n.annotations=100, n.classifications=1000){
+plot.robustness.4.iv <- function(iv, n.annotations=200, n.classifications=5000){
     r <- readRDS('robustness_4.RDS')
     robust_df <- data.table(r[['robustness_4']])
 
diff --git a/robustness_4.RDS b/robustness_4.RDS
index 79f74a2..2a4fa6d 100644
Binary files a/robustness_4.RDS and b/robustness_4.RDS differ