for cours project in getting and cleaning data in R