Randomly draw balls from boxes.

Source: R/myrs.R

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.

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