# NOT RUN {
library(magrittr)
library(ggplot2)
data(RankCorr, package = "tidybayes")
RankCorr %>%
spread_draws(u_tau[i]) %>%
ggplot(aes(y = i, x = u_tau)) +
geom_eyeh()
RankCorr %>%
spread_draws(u_tau[i]) %>%
ggplot(aes(x = i, y = u_tau)) +
geom_eye()
# }
Run the code above in your browser using DataLab