Take a look at sample
function.
> set.seed(1)
> sample(c(0,1), size=10, replace=TRUE, prob=c(0.2,0.8))
[1] 1 1 1 0 1 0 0 1 1 1
From the helpfile you can read:
sample
takes a sample of the specified size from the elements of x
using either with or without replacement.
and the argument prob
in sample
acts as ...
A vector of probability weights for obtaining the elements of the vector being sampled.
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…