data(s109)
cl <- constrain.legis(s109,
x=list("KENNEDY (D MA)"=-1,
"ENZI (R WY)"=1),
d=1)
## short run for examples
id1Constrained <- ideal(s109,
d=1,
priors=cl, ## use cl
startvals=cl, ## use cl
maxiter=1000,
burnin=100,
thin=10)
summary(id1Constrained)
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)
## too long for examples
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)
## short run for examples
id2Constrained <- ideal(s109,
d=2,
priors=cl2, ## priors (w constraints)
startvals=cl2, ## start value (w constraints)
store.item=TRUE,
maxiter=500,
burnin=100,
thin=10)
summary(id2Constrained,include.items=TRUE)
Run the code above in your browser using DataLab