R programming - assignament 2