ie2010dfm <- dfm(ie2010Corpus, verbose=FALSE)
wfmodel <- textmodel_wordfish(LBGexample, dir = c(6,5))
wfmodel
if (require(austin)) {
wfmodelAustin <- wordfish(quanteda::as.wfm(LBGexample), dir = c(6,5))
cor(wfmodel@theta, wfmodelAustin$theta)
}
Run the code above in your browser using DataLab