[Stable] Adds symmetric credible intervals based on quantiles.

calc_CrIs(samples, summarise_by = c(), CrIs = c(0.2, 0.5, 0.9))

Arguments

samples

A data.table containing at least a value variable

summarise_by

A character vector of variables to group by.

CrIs

Numeric vector of credible intervals to calculate.

Value

A data.table containing the summarise_by variables and the specified lower and upper credible intervals

Examples

samples <- data.frame(value = 1:10, type = "car")
# add credible intervals
calc_CrIs(samples)
#>    . lower_90 lower_50 lower_20 upper_20 upper_50 upper_90
#> 1: .     1.45     3.25      4.6      6.4     7.75     9.55
# add 90% credible interval grouped by type
calc_CrIs(samples, summarise_by = "type")
#>    type lower_90 lower_50 lower_20 upper_20 upper_50 upper_90
#> 1:  car     1.45     3.25      4.6      6.4     7.75     9.55