Week 4: E-estimator of location and Scale with application in R language