zzh
/
gatk-3.8
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Better cumhist function 

git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@4920 348d0f76-0448-11de-a6fe-93d51630548a
This commit is contained in:
depristo 2011-01-02 23:32:20 +00:00
parent 4c9746f463
commit 586d3f05d9
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
R/titvFPEst.R
View File

@ -41,9 +41,8 @@ normcumsum <- function(x) {
cumsum(normalize(x)) cumsum(normalize(x))
} }
cumhist <- function(d) { cumhist <- function(d, ...) {
h <- hist(d) plot(d[order(d)], type="b", col="orange", lwd=2, ...)
#plot(h$mids, cumsum(h$count), type="b", col="orange", lwd=2)
} }
revcumsum <- function(x) { revcumsum <- function(x) {