sm <- sample_generator(100, c(0,1), dist="EV1")
moment_estimation (sm, dist="GEV")
ML_estimation (sm, dist="GEV")
Fx (sm, c(-0.051,0.97,-0.024), dist="GEV")
sample_generator (100, c(-0.051,0.97,-0.024), dist="GEV")
moment_estimation (sm, dist="GAM")
ML_estimation (sm, dist="GAM")
Fx (sm, c(-1.6,0.78,2.8), dist="GAM")
Run the code above in your browser using DataLab