Data generated in mGSZ example as follows: gene.names <- paste("g",1:100, sep = "")
# create random gene expression data matrix
set.seed(100) x <- matrix(rnorm(100*10),ncol=10) rownames(x) <- gene.names b <- matrix(2*rnorm(50),ncol=5) ind <- sample(1:10,replace=FALSE) x[ind,6:10] <- x[ind,6:10] + b
l <- rep(1:2,c(5,5))
# create random gene sets
y <- vector("list", 20) for(i in 1:length(y)) y[[i]] <- sample(gene.names, size = 10) names(y) <- paste("set", as.character(1:20), sep="")
dummyData <- list(x=x, y=y, l=l)
# can be used by doing: mGSZres <- mGSZ2(dummyData$x, dummyData$y, dummyData$l);
1 |
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.