Update Rcode_residual.R