plot now assumes 1 / 1000 is the min error rate, not 1/100
git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@4010 348d0f76-0448-11de-a6fe-93d51630548a
This commit is contained in:
parent
6037443e55
commit
e0abb73fd7
|
|
@ -10,7 +10,7 @@ targetTITV = as.numeric(args[2])
|
|||
# Useful general routines
|
||||
# -----------------------------------------------------------------------------------------------
|
||||
|
||||
MIN_FP_RATE = 0.01
|
||||
MIN_FP_RATE = 0.001 # 1 / 1000 is min error rate
|
||||
|
||||
titvFPEst <- function(titvExpected, titvObserved) {
|
||||
max(min(1 - (titvObserved - 0.5) / (titvExpected - 0.5), 1), MIN_FP_RATE)
|
||||
|
|
|
|||
Loading…
Reference in New Issue