select_sample.R