if (FALSE) {
data(scorpionTest)
nets <- runSCORPION(
gexMatrix = scorpionTest$gex,
tfMotifs = scorpionTest$tf,
ppiNet = scorpionTest$ppi,
cellsMetadata = scorpionTest$metadata,
groupBy = c("donor", "region")
)
res <- testEdges(
networksDF = nets,
testType = "two.sample",
group1 = grep("--T$", colnames(nets), value = TRUE),
group2 = grep("--N$", colnames(nets), value = TRUE)
)
geneSets <- list(SetA = c("ACKR1", "ACTA2"), SetB = c("ACTG2", "ADAMDEC1"))
enr <- enrichEdges(
edgesDF = res,
geneSets = geneSets,
numericValue = "log2FoldChange"
)
}
Run the code above in your browser using DataLab