ProgrammingAssignment2

It is required work
RProgrammingAssignment2

2nd try