doing subset() with S4