# \donttest{
# Example takes ~3 minutes to run depending on computer
## load the data
data("breastcancer2012_subset")
## consider genes from just 2 pathways
genenames <- unique(c(pathways[["Adipocytokine signaling pathway"]],
pathways[["Adrenergic signaling in cardiomyocytes"]]))
sx <- x[match(rownames(x), genenames, nomatch = 0L) > 0L,]
out_clusterq <- NetGSAq(sx, group, pathways_mat[c(1, 2), rownames(sx)])
# }
Run the code above in your browser using DataLab