Update cn.mops.R

replacing the code with Gunter Klambauer's forked code at : https://gist.github.com/gklambauer/8955203