在R中引导两个数据集

我有两个数据帧，如下所示：

 seed(1) 
 X <- data.frame(matrix(rnorm(2000), nrow=10))

---

我认为首先选择列号可能更有意义，从200中选择10而不替换（每个X'和Y'五个）：

---

@user2294316我在回答中添加了一些说明如何存储数据集的内容

Xprimes[，i]

和

Yprimes[，i]

现在包含

i

th数据集。

B <- 1000
replicate(B, apply(X, 2, sample, replace = FALSE))

colnums_boot <- replicate(1000,sample.int(200,10))

Xprime <- X[,colnums_boot[1:5,i]]
Yprime <- X[,colnums_boot[6:10,i]]

Z <- as.matrix(X)
Xprimes <- array(,dim=c(10,5,1000))
Xprimes[] <- Z[,colnums_boot[1:5,]]

Yprimes <- array(,dim=c(10,5,1000))
Yprimes[] <- Z[,colnums_boot[6:10,]]