Update R function RestrictedSVMRFE