# NOT RUN {
## Calculating transcriptome overlap measure within D. melanogaster
## dm_gene_expr.rda and dm_tissue_expr.rda
## 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")
## without user-provided gene lists
# use single dataset
dm_trom <- ws.trom(sp_gene_expr = dm_gene_expr, z_thre = 1.5,
provide = FALSE, save_overlap_genes = TRUE)
# use two different dataset
# calculate TROM scores between timecourse and tissue/cell line
# data within D. melanogaster
load("dm_tissue_expr.rda")
dm_trom2 <- ws.trom(sp_gene_expr = dm_gene_expr, single = FALSE,
sp_gene_expr2 = dm_tissue_expr, z_thre = 1.5,
provide = FALSE, save_overlap_genes = FALSE)
## with user-provided gene lists
gene_lists <- system.file("dm_associated_genes.xlsx", package = "TROM")
dm_trom3 <- ws.trom(provide = TRUE, gene_lists = gene_lists)
# }
Run the code above in your browser using DataLab