Dear Rologists, I'm stuck with this. How would you do this efficiently: > aPGI [[1]] [1] "864" "5576" > aPGItest [[1]] [1] TRUE FALSE > result <- [magic box involving subset) > result [[1]] [1] "864" Thanks for any hints, Joh