This repository was created to present my solution to an assignment in 'Learning R'. If you are a Peer about to grade my work,