[R] The Disguise-Shift Method