Update 040_estatDescriptive.R

Included some basic univariate statistics function