R Programming first assignment