xx <- data.frame(t(data.frame(c(0:20,0:3,0:5),c(0:10,0:5,0:13)))) aa <- xx[1,]==0 length(which(aa==TRUE))