# NOT RUN {
data(Trolley)
d <- Trolley
d2 <- list(
y=d$response,
xA=d$action,
xI=d$intention,
xC=d$contact,
id=as.integer(d$id)
)
Nid <- length(unique(d2$id))
# ordered logit regression with varying intercepts
m.init <- map2stan(
alist(
y ~ dordlogit( phi , cutpoints ),
phi <- aj + bA*xA + bI*xI + bC*xC,
c(bA,bI,bC) ~ dnorm(0,1),
aj[id] ~ dnorm(0,sigma_id),
sigma_id ~ dcauchy(0,2.5),
cutpoints ~ dcauchy(0,2.5)
),
data=d2 ,
start=list(
bA=0,bI=0,bC=0,
cutpoints=c(-2,-1.7,-1,-0.2,0.5,1.3),
aj=rep(0,Nid),sigma_id=1
),
types=list(cutpoints="ordered") ,
iter=2
)
# Note: parallel chains won't work on Windows
m <- resample( m.init , chains=3 , cores=3 , warmup=1000 , iter=3000 )
# }
Run the code above in your browser using DataLab