在块矩阵中找到子矩阵的索引

Question

该问题紧随发布的问题

List of combination between rows of diagonal block matrix

我想找到每个子矩阵的索引。下列方法

indices <- split(seq_len(nrow(A2)), max.col(abs(A2) > 0, "first"))

使用了

，但它并不健壮，因为它假定所有子矩阵中每个子矩阵的第一个元素都不为零，但有时可能为零。我希望有人可以帮助我找到第一个元素为零的情况下的索引。