Update Testcode.R