Update testcode.R