## fake example
set.seed(314159265)
fakeData <- matrix(sample(x=c(0,1),size=1000,replace=TRUE),
10,100)
rc <- rollcall(fakeData)
## short-run for demo purposes
idFake <- ideal(rc,maxiter=1000,burnin=100,thin=10)
summary(idFake)
## Supreme Court Example
data(sc9497)
rc <- rollcall(data=sc9497$votes,
legis.names=sc9497$legis.names,
desc=sc9497$desc)
id1 <- ideal(rc)
summary(id1)
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