Create 40_estatDescriptive

Descriptive analysis in R.