## Not run:
# data(ie30corpus, package = "quantedaData")
# wordshoalfit <-
# textmodel_wordshoal(ie30corpus, groupvar = "debateID", authorvar = "member.name")
# fitdf <- merge(as.data.frame(summary(wordshoalfit)),
# docvars(ie30corpus),
# by.x="row.names", by.y="member.name")
# fitdf <- subset(fitdf,!duplicated(memberID))
# aggregate(theta ~ party.name, data = fitdf, mean)
# ## End(Not run)
Run the code above in your browser using DataLab