Better cumhist function

git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@4920 348d0f76-0448-11de-a6fe-93d51630548a
2011-01-02 23:32:20 +00:00 · 2011-01-02 23:32:20 +00:00 · 586d3f05d9
parent 4c9746f463
commit 586d3f05d9
1 changed files with 2 additions and 3 deletions
--- 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) {