R Programming Assignment 2, version 1