RPrograming assignment  1