R Programming Assignment Two