Randomly draw balls from boxes.

Given a number of boxes with a specified number of balls in each, randomly draw a number of balls from these boxes, recording how many balls was drawn from each. An empty box cannot be drawn from.

Usage

rfromboxes(n, balls, weights = NULL)

Arguments

n

A natural number. The number of balls to draw.

balls

A vector of natural numbers. The number of balls in each box to begin with.

weights

A non-negative numeric vector the same length as balls. The relative probabilities of drawing a ball from each box. Default is each box is equally likely to be drawn from.

Value

A vector of natural numbers with the same length as balls. The number of balls drawn from each box.

See also

rtoboxes

Examples

balls <- 1:10
rfromboxes(40, balls)
#>  [1] 1 2 3 4 0 6 5 3 8 8
rfromboxes(40, balls, weights = c(rep(1, 9), 0))
#>  [1] 1 2 3 4 5 6 7 4 8 0