Week 16; Descriptive Statistics and Graphical representation of a data with R