“数组”对象分配

Question

我有以下代码可以使用：

  Dist1 <- table(RandArray[,1])
  Dist2 <- table(RandArray[,2])
  Dist3 <- table(RandArray[,3])
  Dist4 <- table(RandArray[,4])
  Dist5 <- table(RandArray[,5])
  Dist6 <- table(RandArray[,6])
  Dist7 <- table(RandArray[,7])

我希望它是这样的：

for (AppInd in 1:7)
{
    Dist[AppInd] <- new("table")
    Dist[AppInd] <- table(RandArray[,AppInd])
}

也许我不需要做上述事情，也许我可以改变：

AllDist <- table(RandArray[,])

有没有办法避免for循环？

感谢您帮助新手＆＃34; R＆＃34;编码器。

理查德罗杰斯

更新

SequenceCount <- 100000
ApproachCount <- 7

RandArray <- matrix(NA_integer_, nrow = SequenceCount, ncol = ApproachCount, byrow = FALSE)