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