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="GAM")
Fx(sm, ML_estimation (sm, dist="GAM"), dist="GAM")
A2(sort(Fx(sm, ML_estimation (sm, dist="GAM"), dist="GAM")))
A2_GOFlaio(sm, dist="GAM")
Run the code above in your browser using DataLab