if (FALSE) {
ecode <- '
parameters {
array[2] real y;
}
model {
y ~ exponential(1);
}
'
fit <- stan(model_code = ecode)
s <- summary(fit, probs = c(0.1, 0.9))
s$summary # all chaines merged
s$c_summary # individual chains
}
Run the code above in your browser using DataLab