This is my programming assignment for R Programming, Week3.