rindex <- rnorm (1000)
names (rindex) <- paste0 ("gen", 1:1000)
annotList <- list (geneSet1 = sample (names (rindex), size = 10),
geneSet2 = sample (names (rindex), size = 15),
geneSet3 = sample (names (rindex), size = 20))
res <- uvGsa (rindex, annotList)
res
Run the code above in your browser using DataLab