JHDS - Assigment 2 for R Programming