data(MilanPollution)
pars <- fGEV(Milan.winter$PM10)$est
pars
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