variation code snippets in r

obtain modified response values with the variation removed from conditioned variable in a partial redundancy analysis in r