将 sample() 的输出与 R 中的 rbinom() 匹配？

Question

也许这个问题太简单了，但 A 和 B 在我下面的 R 代码中不应该完全相等：

set.seed(0)
A <- sample(0:1, 50, prob = rep(.5, 2), replace = T) # 'A' is HERE
plot(table(A))

set.seed(0)
B <- rbinom(50, 1, .5)  # 'B' is HERE
plot(table(B))

Answer 1

如果我们取 'B' 的否定，它会是相同的，即如果我们查看 'B' 的输出，它有 0 个值与它在 A 中的 1 相同的位置反之亦然

identical(A, +!B)
#[1] TRUE

或者不进行取反，而是通过相反的方式创建 'A'，即 1:0

set.seed(0)
A <- sample(1:0, 50, prob = rep(.5, 2), replace = TRUE)
identical(A, B)
#[1] TRUE

将 sample() 的输出与 R 中的 rbinom() 匹配？

Matching output of sample() with rbinom() in R?

random

r

sampling

resampling