R Programming Second Assignment