# Short-tailed example
short <- dst_gev(0, 1, -1)
range(short)
mean(short)
# Heavy-tailed example
heavy <- dst_gev(0, 1, 1)
range(heavy)
mean(heavy)
# Light-tailed example (a Gumbel distribution)
light <- dst_gev(0, 1, 0)
range(light)
mean(light)
Run the code above in your browser using DataLab