contains the result of my programming assignment 2 for my R course