Update robustmethod_CPP.R