次のように2つのデータフレームがあります。
seed(1)
X <- data.frame(matrix(rnorm(2000), nrow=10))
行は遺伝子を表し、列は遺伝子型です。
ブートストラップのラウンドごとに ( n=1000)、このデータセットから遺伝子型を置換せずにランダムに選択し ( X)、データセットの 2 つのグループを形成するX'必要があります (5 つの遺伝子型をY'持ち、5 つの遺伝子型を持つ必要があります)。基本的に、最終的にはそのようなデータセットが 1000個X'ありY'、完全な発現データセットからそれぞれ 5 つのランダムな遺伝子型が含まれます。
replicateandを使用してみapplyましたが、うまくいきませんでした。
B <- 1000
replicate(B, apply(X, 2, sample, replace = FALSE))