Соответствует выводу sample () с rbinom () в R?

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 значений, которые займут ту же позицию, что и 1 в A, и наоборот

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

---

Или вместо отрицания создайте «А», сделав обратное, то есть 1: 0

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