From 586d3f05d9a65894d7fd1ae0a7df91619a793ed9 Mon Sep 17 00:00:00 2001
From: depristo <depristo@348d0f76-0448-11de-a6fe-93d51630548a>
Date: Sun, 2 Jan 2011 23:32:20 +0000
Subject: [PATCH] Better cumhist function

git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@4920 348d0f76-0448-11de-a6fe-93d51630548a
---
 R/titvFPEst.R | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/R/titvFPEst.R b/R/titvFPEst.R
index d963565bc..7af5e8bbb 100755
--- a/R/titvFPEst.R
+++ b/R/titvFPEst.R
@@ -41,9 +41,8 @@ normcumsum <- function(x) {
     cumsum(normalize(x))
 }
 
-cumhist <- function(d) {
-    h <- hist(d)
-    #plot(h$mids, cumsum(h$count), type="b", col="orange", lwd=2)
+cumhist <- function(d, ...) {
+    plot(d[order(d)], type="b", col="orange", lwd=2, ...)
 }
 
 revcumsum <- function(x) {