f <- system.file("extdata","id1.rda",package="pscl")
load(f)
summary(id1)
if (FALSE) {
data(s109)
cl2 <- constrain.legis(s109,
x=list("KENNEDY (D MA)"=c(-1,0),
"ENZI (R WY)"=c(1,0),
"CHAFEE (R RI)"=c(0,-.5)),
d=2)
id2Constrained <- ideal(s109,
d=2,
priors=cl2, ## priors (w constraints)
startvals=cl2, ## start value (w constraints)
store.item=TRUE,
maxiter=5000,
burnin=500,
thin=25)
summary(id2Constrained,
include.items=TRUE)
}
Run the code above in your browser using DataLab