前面发了一个帖子没有悬赏，这里重新开一个，希望大家帮忙。
概念是这样的，有一个原始数据X是2行6列，现在根据输入的N=3来分成三块，x1，x2，x3。这个下面代码已经可以实现了。

X<-matrix(1:12,nrow = 2, ncol= 6, byrow = T)
N=3
for (i in 1:N){
  assign(paste0("x",i), X[,(1+(i-1)*6/N):(i*6/N)])
}


接下来的任务就是把分割的数据重新全组合成一系列子数据，由于N=3，所以全部组合数为7，于是要循环创造新的变量s1到s7，使得：
s1=x1
s2=x2
s3=x3
s4=data.frame(x1,x2)
s5=data.frame(x1,x3)
s6=data.frame(x2,x3)
s7=data.frame(x1,x2,x3)

这个举例是一个范例，目的就是对于任何输入的N，都能把原始数据打散后重新给出全组合的新子数据系列。希望大神相助！