#Danio rerio
Drerio <- "../Data/Dataset/processed/ZebrafishNeurogProcessed.txt"
Drerio <- read.delim(Drerio,sep = "\t",header = T)
Drerio <- Drerio[,c(1,2,3,7,103:114,133,135,136,139)]
#Mouse Data
Mouse_diff <- read.table('../Data/Dataset/270519_MouseNeuron_TMT10_contrast_updatedNames.txt',header = T)
Mouse_all <- merge(Mouse,Mouse_diff,by.x = 'X',by.y = 'Protein.ID')
#Homo sapiens
Djuric <- "../Data/Dataset/processed/Djuric_et_al_2017_processed.csv"
Djuric <- read.delim(Djuric,sep=",",header = T)
#Frese
Frese <- "../Data/Dataset/processed/Frese_et_al_2017_processed.csv"
Frese <- read.delim(Frese,sep = ",",header = T)
l <- list('Homo sapiens' = Djuric,
'Mus musculus' = Mouse_all,
'Rattus norvegicus' = Frese,
'Danio rerio' = Drerio)
#Write table
openxlsx::write.xlsx(l,'../out/tables/Table_S4.xlsx')