da<-list()
for(i in 1:100){
set.seed(i)#循环时出现问题，种子数R给默认为100，无法从1开始循环到100，导致最终100个数据集X,T变量都是一样的数值#
N<-200#每个数据集中样本量为200#
x<-mvrnorm(N,mu=rep(0,10),Sigma=diag(10))#产生10个协变量Xi#
t1<- 0.2*x[,1]+x[,2]+2*x[,3]+3*x[,4]-2*x[,5]-0.5*x[,6]+rnorm(N,sd=1)#固定变量T与Xi的函数关系式#
prop <- 1/(1+exp(-t1-0.1*x[,3]-0.3*x[,4]+0.2*x[,5]-0.3*x[,7]))#结局变量Y属于二分类变量#
y1<- rbinom(N,1,prop)
data<-data.frame(y1,t1,x[,1],x[,2],x[,3],x[,4],x[,5],x[,6],x[,7],x[,8],x[,9],x[,10])
da[[i]]<-data
}

我想模拟产生100个数据集，每个数据集中包含Y,T,X1-X10这几个变量，以上程序最终的确产生了100个数据集，但是100个数据集中T变量的数值全部相同，想请问大家，程序问题出现在哪里，该如何改正才能产生100个数值不同的数据集？？