> apply(p, 1, function(x) which(!is.na(x)) ) [[1]] [1] 2 3 [[2]] [1] 4 7 [[3]] integer(0) [[4]] [1] 5 [[5]] integer(0)