# Simulate Gaussian expression data for 10 genes and 10 samples
gene.expr=matrix(rnorm(100), nrow=10)
# Use 0 as mean.expr
mean.expr=rep(0,10)
# Simulate tissue-specific weights
tissue.specificity = runif(10, min=0.5, max=1.5)
# Define a collection with two disjoint sets that span the 10 genes
collection=list(set1=1:5, set2=6:10)
# Execute TPAC on both sets
tpacForCollection(gene.expr=gene.expr, mean.expr=mean.expr,
tissue.specificity=tissue.specificity, gene.set.collection=collection)
Run the code above in your browser using DataLab