将样本（）的输出与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

如果我们取消了＆＃39; B＆＃39;，它将是相同的，即如果我们查看＆＃39; B＆＃39;的输出，它有0个值，它占据相同的位置在A中是1并且反之亦然

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

或者不是做否定，而是通过反向创建＆＃39; A＆＃39;

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