Create test_select.R