First project for the R Programming