Update Test Script.R