Zaslať SMS: Modely výberu portfólia v jazyku R