# NOT RUN {
library(rstan)
scode <- "
parameters {
real y[2];
}
model {
y[1] ~ normal(0, 1);
y[2] ~ double_exponential(0, y[1]);
}
"
fit1 <- stan(model_code = scode, iter = 10)
stan_checkdivergences(fit1)
# }
Run the code above in your browser using DataLab