## Load toy gene expression data
data(toydata)
### class labels
yy <- toydata[1,]
### Generate Leave-One-Out / Exchange-One-Label matrix
loo <- GenerateFoldMatrix(y = yy, k=1)
### A more complex example
l3o <- GenerateFoldMatrix(y = yy, k=3, replicates=30, minclassize=5)
Run the code above in your browser using DataLab