R project 1 of exploratory data analysis