Он попытается объединить z [1,] и z [2,], чтобы сделать & amp; но они не имеют общего времени.
Вы можете попробовать один из них:
library(zoo)
## 1
which(apply(z > 0, 2, all))
## 2
which(pmin(z[1, ], z[2, ]) > 0)
## 3
which(colSums(z > 0) == nrow(z))
## 4
which(apply(z, 2, min) > 0)
## 5
cz <- coredata(z)
which(cz[1, ] > 0 & cz[2, ] > 0)
# 6
library(matrixStats)
which(colAlls(z > 0))