I have a list of vectors lis which I need to match to another vector vec
lis
vec
lis <- list(c(2,0,0),c(1,1,0), c(1,0,1), c(0,2,0), c(0,
sapply(lis,function(x)all(x==vec)) [1] FALSE TRUE FALSE FALSE FALSE FALSE