locColSel=locCols[grep('objCyto_Intensity_MeanIntensity_imErkCor|(R|r)atio|(I|i)ntensity',locCols)[1]]# index 1 at the end in case more matches; select 1st
locColSel=locCols[grep('objCyto_Intensity_MeanIntensity_imErkCor|(R|r)atio|(I|i)ntensity|y',locCols)[1]]# index 1 at the end in case more matches; select 1st