Add tests

R/interval.R

@@ -49,42 +49,3 @@ setMethod(
     )
   }
 )
-
-# Helpers ======================================================================
-#' Simplify
-#'
-#' Reduces the result of `credible()` or `hpdi()` to a `matrix`.
-#' @param x A [`list`] of [`matrix`] (returned by `credible()` or `hpdi()`)
-#' @return A [`data.frame`].
-#' @author N. Frerebeau
-#' @keywords internal
-#' @noRd
-bind_intervals <- function(x) {
-  hpd <- do.call(rbind.data.frame, x)
-  rownames(hpd) <- NULL
-  n <- vapply(X = x, FUN = nrow, FUN.VALUE = integer(1))
-  hpd <- data.frame(name = rep(names(x), times = n), hpd)
-  hpd
-}
-
-#' Interval Matching
-#'
-#' Tests if the values of an MCMC sample belong to an interval.
-#' @param x A [`numeric`] vector (MCMC sample).
-#' @param y A [`matrix`] (returned by `credible()` or `hpdi()`).
-#' @return A [`logical`] vector.
-#' @author N. Frerebeau
-#' @keywords internal
-#' @noRd
-is_credible <- function(x, y) {
-  tmp <- apply(
-    X = y,
-    MARGIN = 1,
-    FUN = function(i, mcmc) {
-      mcmc >= i[[1L]] & mcmc <= i[[2L]]
-    },
-    mcmc = x,
-    simplify = TRUE
-  )
-  rowSums(tmp) > 0
-}