da<-list()
for(i in 1:100){
n<-200
x<-mvrnorm(n,mu=rep(0,10),Sigma=diag(10))#产生10个协变量Xi#
t<- 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(-t-0.1*x[,3]-0.3*x[,4]+0.2*x[,5]-0.3*x[,7]))#结局变量Y属于二分类变量#
y<- rbinom(n,1,prop)
data<-data.frame(y,t,x[,1],x[,2],x[,3],x[,4],x[,5],x[,6],x[,7],x[,8],x[,9],x[,10])
da[[i]]<-data
}
我想产生100个不同的数据集，无奈运行完以上程序后，100个数据集都相同，请问各位如何更正