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

Question

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

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

---

或者不进行求反，而是通过相反的操作(即 1:0)创建“A”

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