Update test_select.R