Nothing
#' Generate a Random Vector from a Bernoulli Sampling Model
#'
#' \code{rvbern} generates a random vector where each simulation comes from a
#' Bernoulli sampling distribution.
#'
#' \code{rvbern} is a special case of \code{rvbinom} with the argument size=1.
#'
#' If \code{logical} is \code{TRUE}, the function returns a logical random
#' variable which has TRUE for 1, FALSE for 0. (The printed summary of this
#' object is slightly different from a regular continuous numeric random
#' variable.)
#'
#' @param n number of random scalars to draw
#' @param prob probability of "success"; may be a random vector itself
#' @param logical logical; return a logical random variable instead
#' @return A random vector (an rv object) of length \code{n}.
#' @note The resulting vector will not be independent and identically
#' distributed Bernoulli unless \code{prob} is a fixed number.
#' @author Jouni Kerman \email{jouni@@kerman.com}
#' @references Kerman, J. and Gelman, A. (2007). Manipulating and Summarizing
#' Posterior Simulations Using Random Variable Objects. Statistics and
#' Computing 17:3, 235-244.
#'
#' See also \code{vignette("rv")}.
#' @keywords classes
#' @examples
#'
#' rvbern(2, prob=0.5)
#' rvbinom(2, size=1, prob=0.5) # Equivalent
#' print(rvbern(1, 0.5, logical=TRUE)) # won't show the quantiles
#' print(as.logical(rvbern(1, 0.5))) # equivalent
#'
#' @export rvbern
#' @importFrom stats rbinom
rvbern <- function (n=1, prob, logical=FALSE) {
r <- rvvapply(rbinom, n.=n, size=1, prob=prob)
if (logical) {
r <- as.logical(r)
}
return(r)
}
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.