Mercurial > repos > deepakjadmin > mayatool1_test1

comparison condition.R @ 1:b27fcd214692 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author deepakjadmin
date Tue, 20 Sep 2016 12:35:33 -0400
parents af08995fd952
children
comparison
equal deleted inserted replaced
0:af08995fd952 1:b27fcd214692
8 if (arg4 == "Active") { 8 if (arg4 == "Active") {
9 refined <- asd[asd[,1] >= as.numeric(arg3) & asd[,1] <= as.numeric(arg2),] 9 refined <- asd[asd[,1] >= as.numeric(arg3) & asd[,1] <= as.numeric(arg2),]
10 compound <- rownames(refined) 10 compound <- rownames(refined)
11 refined <- cbind(compound,refined) 11 refined <- cbind(compound,refined)
12 } else if((arg4 == "Inactive") ){ 12 } else if((arg4 == "Inactive") ){
13 #refined <- asd[asd[,1] <= as.numeric(arg2),]
14 refined <- asd[asd[,2] >= as.numeric(arg3) & asd[,2] <= as.numeric(arg2),] 13 refined <- asd[asd[,2] >= as.numeric(arg3) & asd[,2] <= as.numeric(arg2),]
15 compound <- rownames(refined) 14 compound <- rownames(refined)
16 refined <- cbind(compound,refined)} 15 refined <- cbind(compound,refined)
17 ###write.table(dw,file=args3,row.names=FALSE,sep="\t") 16 }
18 write.table(refined,file=arg5,row.names=FALSE,sep="\t") 17 write.table(refined,file=arg5,row.names=FALSE,sep="\t")
19 18