# Take a random sample of size 50 from the binomial distribution that relates to the Zener card experiment:

binom_sample1 <- rbinom(50, 25, 0.2)

# Print the values in binom_sample1

binom_sample1

# Get a 95% confidence interval for that sample data

t.test(binom_sample1, mu = 5)

# take another sample and call it binom_sample2, and do the same