Update OldRcode.R