Commit fb3bf46e5f75353d248c2b6193cd082f425fb1fc

Authored by bhklein
1 parent 04f2607f

update FAR label

share/openbr/plotting/plot_utils.R
@@ -8,7 +8,7 @@ library("png") @@ -8,7 +8,7 @@ library("png")
8 library("grid") 8 library("grid")
9 9
10 # Code to format FAR values 10 # Code to format FAR values
11 -far_names <- list('0.001'="FAR = 0.1%", '0.01'="FAR = 1%") 11 +far_names <- list('0.0001'="FAR = 0.01%', '0.001'="FAR = 0.1%", '0.01'="FAR = 1%")
12 far_labeller <- function(variable,value) { 12 far_labeller <- function(variable,value) {
13 if (as.character(value) %in% names(far_names)) { 13 if (as.character(value) %in% names(far_names)) {
14 return(far_names[as.character(value)]) 14 return(far_names[as.character(value)])