diff condition.R @ 1:b27fcd214692 draft default tip

Uploaded
author deepakjadmin
date Tue, 20 Sep 2016 12:35:33 -0400
parents af08995fd952
children
line wrap: on
line diff
--- a/condition.R	Wed Jan 20 05:17:11 2016 -0500
+++ b/condition.R	Tue Sep 20 12:35:33 2016 -0400
@@ -10,10 +10,9 @@
 compound  <- rownames(refined)
 refined <- cbind(compound,refined)
 } else if((arg4 == "Inactive") ){
-#refined <- asd[asd[,1] <= as.numeric(arg2),] 
 refined <- asd[asd[,2] >= as.numeric(arg3) & asd[,2] <= as.numeric(arg2),]
 compound  <- rownames(refined)
-refined <- cbind(compound,refined)}
-###write.table(dw,file=args3,row.names=FALSE,sep="\t")
+refined <- cbind(compound,refined)
+}
 write.table(refined,file=arg5,row.names=FALSE,sep="\t")