## Calculating transcriptome overlap measure within D. melanogaster
## using orthologous genes
## 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.
## Not run:
# load("dm_gene_expr.rda")
# load("dm_ce_orthologs.rda")
# ## use single dataset of D. melanogaster
# # without user-provided gene lists
# dm_trom_orth <- ws.trom.orthologs(sp1_sp2_orthologs = dm_ce_orthologs,
# sp_gene_expr = dm_gene_expr, single = TRUE,
# z_thre = 1.5, 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)
#
# ## use two different datasets of D. melanogaster
# # without user-provided gene lists
# dm_gene_expr2 <- dm_gene_expr[,1:13]
# dm_trom_orth3 <- ws.trom.orthologs(sp1_sp2_orthologs = dm_ce_orthologs,
# sp_gene_expr = dm_gene_expr,
# single = FALSE, sp_gene_expr2 = dm_gene_expr2,
# z_thre = 1.5, i = 1,
# provide = FALSE, save_overlap_genes = FALSE)
#
# # with user-provided gene lists
# dm_trom_orth4 <- ws.trom.orthologs(sp1_sp2_orthologs = dm_ce_orthologs, single = FALSE,
# i = 1, provide = TRUE, gene_lists = gene_lists,
# save_overlap_genes = FALSE)
#
# ## End(Not run)
Run the code above in your browser using DataLab