1
0
This commit is contained in:
2023-03-02 13:41:41 -08:00

View File

@@ -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") 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) return(p)
} }