Second assignment for R Programming