R/quantile.R

In Aehmlo/strop: Bootstrap Methods for Inference

#' Bootstrap quantiles
#'
#' @param x A bootstrap object
#' @param probs Vector of probabilities
#' @param ... Additional arguments passed to \code{quantile}
#'
#' @importFrom stats quantile
#'
#' @return A vector of quantiles
#' @export
#'
#' @examples
#' data(mtcars)
#' obj <- bootstrap(mtcars$cyl)
#' quantile(obj, 0.5)
quantile.strop <- function(x, probs, ...) {
    if (is.list(x$stats)) {
        sapply(x$stats, function(x) quantile(unlist(x), probs, ...))
    } else {
        quantile(unlist(x$stats), probs, ...)
    }
}