# NOT RUN {
samples <- data.frame(value = 1:10, type = "car")
summarised <- calc_CrIs(samples, summarise_by = "type",
CrIs = c(seq(0.05, 0.95, 0.05)))
extract_CrIs(summarised)
# }
Run the code above in your browser using DataLab