Skip to content
Permalink
master
Go to file
 
 
Cannot retrieve contributors at this time
13 lines (10 sloc) 522 Bytes
get_gene_list <- function(gene_file_name) {
base_path <- './'
genes_list_file_path <- paste(base_path, 'human_mouse_gene_lists/', gene_file_name, sep='')
genes_list_data <- read.table(genes_list_file_path, sep='\t', header=TRUE)
genes_list_data$Symbol <- tolower(genes_list_data$Symbol)
return(c(genes_list_data$Symbol, 'species', 'study_type'))
}
gene_list_human <- get_gene_list('human_genes.csv')
gene_list_mouse <- get_gene_list('mouse_genes.csv')
gene_list <- intersect(gene_list_human, gene_list_mouse)
You can’t perform that action at this time.