# NOT RUN {
ecode <- '
parameters {
real<lower=0> y[2];
}
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