gl1 <- runif(100, min=-5, max=5)
gl2 <- runif(100, min=-5, max=5)
names(gl1) <- as.character(sample(x=seq(from=1, to=100, by=1), size=100,
replace=FALSE))
names(gl2) <- names(gl1)
gs1 <- sample(names(gl1), size=20, replace=FALSE)
gs2 <- sample(names(gl1), size=20, replace=FALSE)
gsc <- list(subset1=gs1, subset2=gs2)
pwGSC <- pairwisePhenoMannWhit(gl1=gl1, gl2=gl2, gsc=gsc, minGeneSetSize=2)
Run the code above in your browser using DataLab