diff region_motif_compare.r @ 5:4803f5186f1a draft default tip

Uploaded
author jeremyjliu
date Tue, 26 May 2015 12:44:08 -0400
parents cab2db9d058b
children
line wrap: on
line diff
--- a/region_motif_compare.r	Sat May 16 22:38:25 2015 -0400
+++ b/region_motif_compare.r	Tue May 26 12:44:08 2015 -0400
@@ -28,8 +28,8 @@
 # Set input and reference files
 inTab1 = args[9]
 inTab2 = args[10]
-enrichTab = args[11]
-depleteTab = args[12]
+enrichTab1 = args[11]
+enrichTab2 = args[12]
 plotsPng = args[13]
 
 # Load dependencies
@@ -174,9 +174,9 @@
 	outDF$enrichment = ifelse(outDF$enrichment>1,
 														round(outDF$enrichment,3),
 														paste("1/",round(1/outDF$enrichment,3)))
-	write.table(outDF[indicesEnrich,], file=enrichTab, quote=FALSE, 
+	write.table(outDF[indicesEnrich,], file=enrichTab1, quote=FALSE, 
 							sep="\t", append=FALSE, row.names=FALSE, col.names=TRUE)
-	write.table(outDF[indicesDeplete,], file=depleteTab, quote=FALSE, 
+	write.table(outDF[indicesDeplete,], file=enrichTab2, quote=FALSE, 
 							sep="\t", append=FALSE, row.names=FALSE, col.names=TRUE)
 }