随机数组合的方法：选取一个随机数发生器，生成1000个随机数，令这100个随机数生成数组并命名为t。同时令n=1，命名最终需要的随机数数组为x，选取第二个发生器，生成一个随机数j，且满足1而随机数组合的难点在于，步骤2步骤3的时候随机数种子的选取比较难。这里用的是第一个随机数发生器生成的随机数作为种子，也自己定义其他的种子。
a<-c(1465, 1760, 1985, 2270, 2980, 1375, 1735, 1940, 2220, 2670, 1405)## 求取数据的四分位数，然后分组：
x<-cut(a,quantile(a,seq(0,1,0.25)), include.lowest=TRUE)
