Modified R script to generate Train and Test seubject IDs for Normal patients