#从100个样本中抽取90个样本,无放回抽样,做10次 SampleNum<-90; Rows100<-1:100; Num<-10; Num<-Num-1; dataSetSample<-sample(Rows100,SampleNum); for (i in 1:Num) { dataSetSample<-data.frame(dataSetSample,sample(Rows100,SampleNum)); }