# NOT RUN {
dat <- pres_debates2012
dat <- dat[dat$person %in% qcv(ROMNEY, OBAMA), ]
(out <- subject_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))
# }
Run the code above in your browser using DataLab