Rare Events With High Risks: Extreme Value Theory With Applications in R