快速填充R中的大矩阵的方法

Question

我有一个大矩阵（7768x7768），需要用TRUE或FALSE条目填充。

对角线我希望每个条目都为TRUE。其他所有条目都应为FALSE。

这是我所拥有的，它对于小型矩阵非常有用：

#create empty matrix
test<-Matrix(nrow = 7768,ncol = 7768)

#fill the matrix
for (i in 1:7768) {
  for (ii in 1:7768) {
    if (i == ii){
      test[i,ii]<-TRUE
    } else {
      test[i,ii]<-FALSE
    }
  }
}

您可以想象，对于我来说，它太慢了，可能效率很低。

对于我如何更高效，更快地完成操作，您有任何提示吗？