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