if (FALSE) {
data(adaptive)
d <- adaptive[adaptive$SubjID == 1, ]
fit <- ssrt_stan(d, chains = 4, iter = 2000)
print(fit)
plot(fit)
# Hierarchical
fit_h <- ssrt_stan(adaptive, model = "hierarchical",
subject_col = "SubjID", chains = 4)
ranef(fit_h)
}
Run the code above in your browser using DataLab