if (FALSE) {
dat <- pres_debates2012
dat <- dat[dat$person %in% qcv(ROMNEY, OBAMA), ]
(out <- pronoun_type(dat$dialogue, dat$person))
plot(out)
plot(out, 2)
plot(out, 3)
plot(out, 3, ncol=2)
scores(out)
counts(out)
proportions(out)
preprocessed(out)
plot(scores(out))
plot(counts(out))
plot(proportions(out))
(out2 <- pronoun_type(hamlet$dialogue, hamlet$person))
plot(out2, 3, ncol=7)
}
Run the code above in your browser using DataLab