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:
depristo 2010-08-11 14:48:22 +00:00
parent 6037443e55
commit e0abb73fd7
1 changed files with 1 additions and 1 deletions

View File

@ -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)