# Error type I when we use a random sample of size 120 from a Gamma distribution,
# a critical value c = 0.5 and R = 200 to test H_0: theta = 1.5 vs H_1: theta != 1.5
gamma_errorI(0.5,n=120,theta0=1.5,R=200)
Run the code above in your browser using DataLab