submission for R Programming project 2