## Calculating transcriptome overlap measure within D. melanogaster
## using ortholog genes
## without user-provided gene lists
## The .rda files used in this example can be downloaded and unzipped from
## http://www.stat.ucla.edu/~jingyi.li/packages/TROM/TROM_Rdata.zip.
load("dm_gene_expr.rda")
load("dm_ce_orthologs.rda")
dm_trom_orth <- ws.trom.orthologs(sp1_sp2_orthologs = dm_ce_orthologs,
sp_gene_expr = dm_gene_expr,
z_thre = 1.5, FPKM_thre = 1,
i = 1, provide = FALSE, save_overlap_genes = FALSE)
## with user-provided gene lists
gene_lists <- system.file("dm_associated_orthologs.xlsx", package = "TROM")
dm_trom_orth2 <- ws.trom.orthologs(sp1_sp2_orthologs = dm_ce_orthologs,
i = 1, provide = TRUE, gene_lists = gene_lists,
save_overlap_genes = FALSE)Run the code above in your browser using DataLab