if (FALSE) {
## Load German Manifesto data
data(manifesto)
## Estimate variational Wordfish model
lout <- poisIRT(.rc = manifesto$data.manif,
i = 0:(ncol(manifesto$data.manif)-1),
NI=ncol(manifesto$data.manif),
.starts = manifesto$starts.manif,
.priors = manifesto$priors.manif,
.control = {list(
threads = 1,
verbose = TRUE,
thresh = 1e-6,
maxit=1000
)})
## Positional Estimates for Parties
lout$means$x
}
Run the code above in your browser using DataLab