Assignement 2, R-prog 7

Finished assignment