Invia SMS: Zaistenie extrémnych škôd využitím metódy EOT v jazyku R