Can run R scripts on the command line

git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@3750 348d0f76-0448-11de-a6fe-93d51630548a

R/plot_Annotations_BinnedTruthMetrics.R

@@ -1,4 +1,4 @@
-#!/broad/tools/apps/R-2.6.0/bin/Rscript
+#!/bin/env Rscript
 
 args <- commandArgs(TRUE)
 verbose = TRUE

R/plot_ClusterReport.R

@@ -1,4 +1,4 @@
-#!/broad/tools/apps/R-2.6.0/bin/Rscript
+#!/bin/env Rscript
 
 args <- commandArgs(TRUE)
 verbose = TRUE

R/plot_OptimizationCurve.R

@@ -1,4 +1,4 @@
-#!/broad/tools/apps/R-2.6.0/bin/Rscript
+#!/bin/env Rscript
 
 args <- commandArgs(TRUE)
 verbose = TRUE

R/plot_residualError_OtherCovariate.R

@@ -1,4 +1,4 @@
-#!/broad/tools/apps/R-2.6.0/bin/Rscript
+#!/bin/env Rscript
 
 args <- commandArgs(TRUE)
 verbose = TRUE

R/plot_residualError_QualityScoreCovariate.R

@@ -1,4 +1,4 @@
-#!/broad/tools/apps/R-2.6.0/bin/Rscript
+#!/bin/env Rscript
 
 args <- commandArgs(TRUE)
 

R/plot_variantROCCurve.R

@@ -1,4 +1,4 @@
-#!/broad/tools/apps/R-2.6.0/bin/Rscript
+#!/bin/env Rscript
 
 args <- commandArgs(TRUE)
 verbose = TRUE

R/plotting_library.R

@@ -1,4 +1,4 @@
-#!/broad/tools/apps/R-2.6.0/bin/Rscript
+#!/bin/env Rscript
 
 args <- commandArgs(TRUE)
 fileToRead <- args[1]

R/titvFPEst.R

@@ -41,3 +41,7 @@ cumhist <- function(d) {
     h <- hist(d)
     #plot(h$mids, cumsum(h$count), type="b", col="orange", lwd=2)
 }
+
+revcumsum <- function(x) {
+   return(rev(cumsum(rev(x))))
+}