R：矢量化样本，每次采样的概率都不同

Question

I'm trying to sample 10 values of either 0 or 1, with defined (but different) probabilities each time.

This does not work:

sample(0:1, size = 10, replace = T, prob = seq(0.1, 1, 0.1))

This does work:

sapply(seq(0.1, 1, 0.1), function(x) sample(0:1, size = 1, prob = c(1-x, x)))

The 10th value is always 1, while the first value has a 1/10 chance of being a 1 - which is what I want to achieve.

Is there a vectorized approach?

Answer 1

您想从二项分布中进行采样：

rbinom(10, 1, prob = seq(0.1, 1, 0.1))