Create week2_2.R

week 2 Problem Set 1 and 4