Invia SMS: Využitie jazyka R pre simulovanie procesu krachu