Create test_script.R