Following the suggestion of Bill Atwood I've added the selection of relativistic protons by cutting on log10(Tkr1KalThetaMs), similar to what was done earlier by Fred Piron.
But I tried to chose the cut value in a proper way. I've selected protons from the peak on the histogram CalEnergyRaw*Tkr1EndDir[2]: