sm <- sample_generator(100, c(0,1), dist="EV1")
ML_estimation (sm, dist="GEV")
Fx (sm, ML_estimation (sm, dist="GEV"), dist="GEV")
A2(sort(Fx(sm, ML_estimation (sm, dist="GEV"), dist="GEV")))
A2_GOFlaio(sm, dist="GEV")
ML_estimation (sm, dist="P3")
Fx(sm, ML_estimation (sm, dist="P3"), dist="P3")
A2(sort(Fx(sm, ML_estimation (sm, dist="P3"), dist="P3")))
A2_GOFlaio(sm, dist="P3")
Run the code above in your browser using DataLab