bernoulli distribution in r