data(MilanPollution)
pars <- fGEV(Milan.winter$PM10)$est
data_uf <- trans2UFrechet(data = Milan.winter$PM10, pars = pars, type = "GEV")
fGEV(data_uf)$est
data_uf2 <- trans2UFrechet(data = Milan.winter$PM10, type = "Empirical")
fGEV(data_uf2)$est
Run the code above in your browser using DataLab