Commit 0721044d authored by Patino Medina, Laura's avatar Patino Medina, Laura
Browse files

Replace GOenrichment_proj.R

parent 3432d5d4
......@@ -57,6 +57,7 @@ pcutoff <- 0.05
genes <- multiple_dexp$AGI
#useful info: #multiple_dexp[,c(1,which(colnames(multiple_dexp) == current_leaf))]
for(leaf in sample_names[2:length(sample_names)]){
current_leaf = leaf
......@@ -99,7 +100,7 @@ for(leaf in sample_names[2:length(sample_names)]){
#write table with information per leaf
table = paste(current_leaf,"txt",sep=".")
write.table(FDR_by_sample, col.names=T, row.names=F, file = table, sep ="\t",
write.table(FDR_by_sample, col.names=T, row.names=F, file = paste("/enrichment/",table,sep=""), sep ="\t",
quote = F)
}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment