Update RtestCode.R