updating KEMD.R