Nothing
utils::globalVariables(c('estimate'))
#' Histogram of PSA bootstrap results
#'
#'
#' @param x result of \code{\link{PSAboot}}.
#' @param ... other parameters passed to \code{\link{geom_histogram}}
#' @method hist PSAboot
#' @return a ggplot2 expression.
#' @export
hist.PSAboot <- function(x, ...) {
p <- ggplot(x$pooled.summary, aes(x=estimate)) +
geom_vline(xintercept=0) +
geom_histogram(alpha=.5, ...) +
facet_wrap(~ method, ncol=1)
return(p)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.