R Programming Assignment2-2