所有数字的70％ - ＆gt; 1

Question

对于这个问题，最有效的解决方案是什么？ 100“0”和“1”的样本。

sample(0:1, 100, replace=TRUE, prob=NULL)

A）所有生成数字的70％应为“1”。

B）所有生成数字的80％应为“1”。

允许这种分发的论证/或库是什么？

Answer 1

怎么样：

rbinom(1, n = 100, prob = .7)

Answer 2

要准确获得x苹果和y橙子，你可以构建这样的矢量并对其进行采样：

sample(c(rep("apple", x), rep("orange", y)))

在你的情况下：

sample(c(rep(1, 70), rep(0, 100 - 70)))

Answer 3

从您的评论中，您可能只是错误地使用prob。

请考虑以下事项：

set.seed(1); x <- sample(0:1, 100, replace=TRUE, prob=c(.3, .7)); table(x)
# x
#  0  1 
# 32 68 
set.seed(2); x <- sample(0:1, 100, replace=TRUE, prob=c(.3, .7)); table(x)
# x
#  0  1 
# 31 69 
set.seed(1); x <- sample(0:1, 100, replace=TRUE, prob=c(.2, .8)); table(x)
# x
#  0  1 
# 17 83 
set.seed(2); x <- sample(0:1, 100, replace=TRUE, prob=c(.2, .8)); table(x)
# x
#  0  1 
# 23 77