R:将10个数据值随机分成5个组和5个组

时间:2014-02-12 10:08:37

标签: r list random combinations

我想找到将10个数据值分成2组5的所有可能性 如果我是对的,有252种可能性   选择(10,5)   252

我怎么能用R做?

谢谢!

2 个答案:

答案 0 :(得分:2)

这是一种可能性:

a <- letters[1:10] 
split1 <- combn(a, 5); 
split2 <- apply(b, 2, function(x) a[!a %in% x])

随机选择一个:

set.seed(1)
rnd <- sample(1:ncol(split1), size=1)
split1[, rnd]; split2[, rnd]
# [1] "a" "c" "d" "g" "i"
# [1] "b" "e" "f" "h" "j"

答案 1 :(得分:0)

所以我将详细解释我必须做的事情: 我有两组数据:

cellular_wt = c(1.1656,0.9577,1.3655,0.9016,0.9336)
cellular_mutant = c(2.8896,5.7018,3.595,1.6998,1.8893)

secreted_wt = c(7.8491,6.1546,5.1972,6.1607,5.928)
secreted_mutant = c(4.6801,3.2418,3.6651,3.0678,2.3221)

mean_cellular_wt <- mean(cellular_wt)
mean_cellular_mutant <- mean(cellular_mutant)
mean_secreted_wt <- mean(secreted_wt)
mean_secreted_mutant <- mean(secreted_mutant)

mean_secreted_wt/mean_cellular_wt = 5.877085
mean_secreted_mutant/mean_cellular_mutant = 1.076156

mean_ratio <- (mean_secreted_wt/mean_cellular_wt)/(mean_secreted_mutant/mean_cellular_mutant) = 5.46

我想对这些数据进行随机化测试,以测试平均比率的显着性

为此,我想将这10个值(cellular_wt + cellular_mutant和secreted_wt + secreted_mutant)随机分成2组,每组5个(作为初始数据集),并计算每次的平均比率。 通过这种方式,我可以看出观察到的5.46的差异是否看起来非常大,通过将其与仅由随机分配可能已经看到的252个差异进行比较。你明白了吗?