# NOT RUN {
data_dfm_dailnoconf1991 <- dfm(data_corpus_dailnoconf1991, removePunct = TRUE)
fitted <- textmodel_mixfit(data_dfm_dailnoconf1991,
c("Govt", "Opp", "Opp", rep(NA, 55)))
(pred <- predict(fitted))
tmpdf <-
data.frame(party = as.character(docvars(data_corpus_dailnoconf1991, "party")),
govt = coef(pred)[,"Govt"],
position = as.character(docvars(data_corpus_dailnoconf1991, "position")),
stringsAsFactors = FALSE)
bymedian <- with(tmpdf, reorder(paste(party, position), govt, median))
par(mar = c(5, 6, 4, 2)+.1)
boxplot(govt ~ bymedian, data = tmpdf,
horizontal = TRUE, las = 1,
xlab = "Degree of support for government")
abline(h = 7.5, col = "red", lty = "dashed")
text(c(0.9, 0.9), c(8.5, 6.5), c("Goverment", "Opposition"))
# }
Run the code above in your browser using DataLab