R语言实现RHC随机分群，不等概抽样

总体单元序号：Y: 1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20

对应的规模测度：X:42 65 52 40 75 65 45 50 43 54 49 53 32 22 37 51 30 39 47 41

采用RHC随机分群抽样方法，从二十个单元中以正比于规模测度的概率抽取4个样本

要求：

        （1）将二十个单元随机分成4群

        （2）每群按规模测度抽取一个样本

分两种情况

（1）样本量n 整除总体单元个数N

（2）样本量n 不整除总体单元个数N

先考虑第一种情况

以上题为例，4整除20，所以每群可以分到5个单元，但得随机，考虑用sample()函数随机排列，但X,Y排列之后的得和原来一一对应，可以设置相同的种子数来实现：

set.seed(123)
Ry = sample(y,length(y))
set.seed(123)
RX = sample(X,length(X))

> X
 [1] 42 65 52 40 75 65 45 50 43 54 49 53 32 22 37 51 30 39 47 41
> Y
 [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20
> RX
 [1] 37 47 22 52 54 65 65 49 75 40 39 43 41 30 53 45 51 42 50 32
> RY
 [1] 15 19 14  3 10  2  6 11  5  4 18  9 20 17 12