powered by
function used to produce a Bayesian credible interval of a unimodal distribution of empirical values using the Highest Posterior Probability approach
HPDcrd(x, alpha = 0.05)
a vector of empirical values
1 - alpha is the desired level of credibility
a vector of the lower and upper limits of the 95% credible interval calculated using a standard algorithm
van Hulst, R. 2018. Evaluating Scientific Evidence. ms.
# NOT RUN { HPDcrd(rnorm(1000)) # }
Run the code above in your browser using DataLab