# NOT RUN {
## 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)
# }
Run the code above in your browser using DataLab