R programming third assignemtn