Calculate the empirical hpd.

Empirical highest posterior density by shortest length interval.

Usage

.emp_hpd(X, alpha)

Arguments

X

vector of values

alpha

1 - confidence

Value

highest posterior density (1-alpha) interval

Note

Uses type 7 quantile. Also used in package MF

Author

DiagTestKit-package