# Simulate Poisson expression data for 10 genes and 10 cells
gene.expr=matrix(rpois(100, lambda=2), nrow=10)
# Simulate technical variance proportions
tech.var.prop=runif(10)
# Define a collection with two disjoint sets that span the 10 genes
collection=list(set1=1:5, set2=6:10)
# Execute VAM on both sets using default values for center and gamma
vamForCollection(gene.expr=gene.expr, gene.set.collection=collection,
tech.var.prop=tech.var.prop)
# Create weights that prioritize the first 2 genes for the first set
# and the last 2 genes for the second set
gene.weights = list(c(2,2,1,1,1),c(1,1,1,2,2))
# Execute VAM using the weights
vamForCollection(gene.expr=gene.expr, gene.set.collection=collection,
tech.var.prop=tech.var.prop, gene.weights=gene.weights)
Run the code above in your browser using DataLab