R Programing course - Assigment2 submission - 1