fname_scores <- system.file("extdata", "Adenocarcinoma_scores_subset.tsv",
package = "ActivePathways")
fname_GMT = system.file("extdata", "hsapiens_REAC_subset.gmt",
package = "ActivePathways")
dat <- as.matrix(read.table(fname_scores, header = TRUE, row.names = 'Gene'))
dat[is.na(dat)] <- 1
res <- ActivePathways(dat, fname_GMT)
# \donttest{
export_as_CSV(res, "results_ActivePathways.csv")
# }
Run the code above in your browser using DataLab