# Randomly generated gene sets:
g <- sort(paste("g",floor(runif(100)*500+1),sep=""))
g <- c(g,sort(paste("g",floor(runif(900)*1000+1),sep="")))
g <- c(g,sort(paste("g",floor(runif(1000)*2000+1),sep="")))
s <- paste("s",floor(rbeta(2000,0.9,1.7)*50+1),sep="")
# Make data.frame:
gsc <- cbind(g,s)
# Load gene set collection from data.frame:
gsc <- loadGSC(gsc)
Run the code above in your browser using DataLab