## Not run:
#
# ##generate expression feature matrix
# sampleVec1 <- c(1, 2, 3, 4, 5, 6)
# sampleVec2 <- c(1, 2, 3, 4, 5, 6)
# featureMat <- expFeatureMatrix( expMat1 = ControlExpMat, sampleVec1 = sampleVec1,
# expMat2 = SaltExpMat, sampleVec2 = sampleVec2,
# logTransformed = TRUE, base = 2,
# features = "foldchange" )
#
# ##for an interested set of genes, the average-based rank score can be calculated:
# genes <- rownames(featureMat)[1:100]
# res <- AverageRankScore( featureMat = featureMat, selGenes = genes )
#
# ## End(Not run)
Run the code above in your browser using DataLab