Update test_script.R