# Error type I when we use a random sample of size 200 from a Bernoulli distribution,
# a critical value c = 0.45 and R = 20000 to test H_0: theta = 0.7 vs H_1: theta != 0.7
ber_errorI(0.45,n=100,theta0=0.7,R=20000)
Run the code above in your browser using DataLab