N <- 50
set.seed(42)
object <- sample(c(TRUE,FALSE),N,replace = TRUE)
object
#> [1] TRUE TRUE TRUE TRUE FALSE FALSE FALSE FALSE TRUE FALSE TRUE FALSE
#> [13] TRUE FALSE TRUE TRUE FALSE FALSE FALSE FALSE TRUE TRUE TRUE TRUE
#> [25] TRUE FALSE TRUE TRUE TRUE TRUE FALSE FALSE FALSE FALSE TRUE FALSE
#> [37] TRUE FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE
#> [49] FALSE TRUE
table(object)/N
#> object
#> FALSE TRUE
#> 0.54 0.46