Using Smooth R Function EMS-i DRO