r - 已经采样原始值并将它的转换为不 在样本中,它发生的时间

  显示原文与译文双语对照的内容
0 0

t 值为 20,c 也有 20值 0,。 我对矩阵感兴趣。 这里有一个循环,重复 5次。 每次选择 20值。 我想在 t.mat. 中存储频率,但如何获得所需的结果,结果表如下表所示

t <- 1:20

# c <- seq(0:1, 10)
t.mat <- array(dim = c(20, 5))

rep <- 5

 for(mm in 1:rep){
 sel <- sample(1:20, replace = TRUE) 
 tt <- t[sel]
 # cc <- c[sel]
 t.mat[, mm] = tt[1:20] # here the problem lies, I have no clue how

}

上的输出可能如下所示。 但t的值是 20,我大致只给出六行:

 t v1 v2 v3 v4 v5
 1 1 0 1 0 1
 2 0 0 2 0 1
 3 0 1 1 1 0
 4 1 1 0 0 1
 5 2 0 2 1 0
 6 0 0 0 1 2
时间:原作者:4个回答

0 0

我猜你想要点什么,但是可以能是这样的:

do.call(cbind, lapply(1:5, function(i)
 tabulate(sample(t, replace = T), nbins = 20)))

sample 生成需要的样本,tabulate 计数频率( 使用手动指定的最大值,因为它不会始终出现在示例中),lapply 迭代过程 5次,最后 do.call(cbind, 将它的全部按列绑定在一起。

原作者:
...