Invia SMS: Modely výberu portfólia v jazyku R