Do you take the leftmost tail data at a certain point rather than the whole distribution data to get the correct distribution.
Gumbel_density <- exp(-ts_rSPY)
plot(ts_rSPY,Gumbel_density, col='green')
the plot does not show a gumbel density any help will be greatly appreciated.