RScript test implemented. Passing