Arrays R：用数组替换矩阵中的整数

提前谢谢你的帮助。我是R新手，所以请忽略我代码中的任何明显错误

我试图用我创建的数组替换矩阵中的每个非零值。以下是我到目前为止的情况：

totalsquares<-matrix(data=rbinom(225,1,0.65), nrow=15, ncol=15, byrow=TRUE)
samplesquares <- sum(totalsquares)
totalsquares[totalsquares == 1] <- rpois(samplesquares,30)
urchins<-sum(totalsquares)
for(rowcount in 1:15){
  for(colcount in 1:15){
    if(totalsquares[rowcount, colcount] != 0){
      capprob<-rbeta(1,0.48,0.12)
      cmr<-array(data=rbinom((5*totalsquares[rowcount,colcount]), 1, capprob), c(totalsquares[rowcount, colcount],5,samplesquares))
    }
  }
}

---

totalsquare您希望最终结果是一个15x15矩阵，但该矩阵的某些条目将包含标量（如0），而其他条目将包含数组？我不认为你能让它适用于一个矩阵（它需要有相同类型的所有元素），但是你可以用一个多维列表（它可以为不同的元素容忍不同的类型）