# Error type I when we use a random sample of size 150 from a Weibull distribution,
# a critical value c = 0.5 and R = 500 to test H_0: theta = 3 vs H_1: theta != 3
library(gamlss.dist)
weibull_errorI(0.5,n=150,theta0=3,R=500)
Run the code above in your browser using DataLab