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