Dodano jos nekoliko koraka u algoritmu sljedeće je naći R