diff --git a/resources/real_data_example.R b/resources/real_data_example.R index ac639c4..3036b86 100644 --- a/resources/real_data_example.R +++ b/resources/real_data_example.R @@ -72,7 +72,7 @@ plot.cc.example <- function(datalist, name, varnames=NULL, varorder=NULL, includ } -plot.civilcomments.dv.example <- function(include.models=c("Automated Classifications", "Manual Annotations")){ +plot.civilcomments.dv.example <- function(include.models=c("Automatic Classifications", "All Annotations")){ p <- plot.cc.example(dv.example, "cc_ex_tox.likes.race_disclosed.medsamp", varnames=c("Intercept", "Likes", "Identity Disclosure", "Likes:Identity Disclosure"),varorder=c("Intercept", "Likes", "Identity Disclosure", "Likes:Identity Disclosure"), include.models=include.models) + ylab("Coefficients and 95% Confidence Intervals") + ggtitle("Logistic Regression Predicting Toxicity") return(p) }