randomiser(10,5)
train<-matrix(rnorm(400), ncol=20, nrow=20, dimnames=list(1:20,
paste("train",letters[1:20], sep=".")))
test<-matrix(rnorm(200), ncol=10, nrow=20, dimnames=list(1:20,
paste("test",LETTERS[1:10], sep=".")))
all<-cbind(train,test)
colnames(train)
colnames(test)
newInd<-randomiser(ntrain=20, ntest=10)
newtrain<-all[,newInd$train]
newtest<-all[,newInd$test]
colnames(newtrain)
colnames(newtest)
Run the code above in your browser using DataLab