2Assignement - 3week Rprogramming