Как я могу случайным образом выбрать биномиальную вещь?

Вам нужно использовать sample(), но вот так:

b <- c(rep(0, 5), rep(1, 5))
sample(b)
#  [1] 1 0 1 1 0 0 1 0 0 1
sample(b)
#  [1] 0 1 1 1 0 1 0 0 0 1
sample(b)
#  [1] 0 0 0 1 1 1 0 1 0 1
sample(b)
#  [1] 0 1 0 0 1 0 1 1 0 1

sample случайным образом перетасует вектор. Так что sample(rep(c(0,1),5)) это то, что вам нужно.

Ярлык будет:

sample(10) %/% 6
#> [1] 0 0 0 1 1 0 0 1 1 1

Мы можем использовать bitwAnd + sample

bitwAnd(sample(10), 1)