Extreme Values in R