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