Update subsettingCOMPADRE.R

keep index as.numeric