fix to bring back A1 plot

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))

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']])