Update TestCode.R