#' 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, ...)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.