# HG changeset patch # User deepakjadmin # Date 1453285031 18000 # Node ID af08995fd952c22acb33cbae3a2916bed30e82c6 Uploaded diff -r 000000000000 -r af08995fd952 condition.R --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/condition.R Wed Jan 20 05:17:11 2016 -0500 @@ -0,0 +1,19 @@ +args <- commandArgs(T) +arg1 <- args[1] ## Reae Input prediction file +arg2 <- args[2] ## Less Than +arg3 <- args[3] ## Greater Than or equal too +arg4 <- args[4] ## Active / Inactive +arg5 <- args[5] ## define output file name +asd <- read.table(arg1,row.names=1,header=T) +if (arg4 == "Active") { +refined <- asd[asd[,1] >= as.numeric(arg3) & asd[,1] <= as.numeric(arg2),] +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") +write.table(refined,file=arg5,row.names=FALSE,sep="\t") + diff -r 000000000000 -r af08995fd952 select_mol.xml --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/select_mol.xml Wed Jan 20 05:17:11 2016 -0500 @@ -0,0 +1,27 @@ + + +This tool extracts compounds from prediction result based on given score + + MAYA_TOOL1_PATH + + + + + +condition.R $predictionfile $LT $GT $type $SelectedCompound + + + + + + + + + + + + + + + + diff -r 000000000000 -r af08995fd952 tool_dependencies.xml --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tool_dependencies.xml Wed Jan 20 05:17:11 2016 -0500 @@ -0,0 +1,8 @@ + + + + + $REPOSITORY_INSTALL_DIR + + +