Add multiple operating points to evaluation tables

Scott Klum
1 parent 5e474ce8
Showing 2 changed files with 6 additions and 4 deletions
openbr/core/plot.cpp
share/openbr/plotting/plot_utils.R
@@ -213,8 +213,10 @@ bool Plot(const QStringList &amp;files, const File &amp;destination, bool show)
     }
  
     // optional plot metadata and accuracy tables
-    if (destination.getBool("metadata", true))
+    if (destination.getBool("metadata", true)) {
         p.file.write("plotTAR(tableData=TF)\n");
+        p.file.write("plotTAR(tableData=TF,operatingPoint=1e-6)\n");
+    }
  
     // Write plots
     QString plot = "plot <- plotLine(lineData=%1, options=list(%2), flipY=%3)\nplot\n";
@@ -62,17 +62,17 @@ plotTable &lt;- function(tableData=NULL, name=NULL, labels=NULL) {
     }
 }
  
-plotTAR <- function(tableData=NULL) {
+plotTAR <- function(tableData=NULL, operatingPoint=1e-4) {
     if (nrow(tableData) == 0) return()
     major <- majorHeader
     minor <- if(minorHeader == "") majorHeader else minorHeader
-    tableData <- tableData[grep(1e-4,tableData$X),]
+    tableData <- tableData[grep(operatingPoint,tableData$X),]
     mat <- matrix(tableData$Y, nrow=length(tableData[,major][!duplicated(tableData[,major])]), ncol=length(tableData[,minor][!duplicated(tableData[,minor])]), byrow=FALSE)
     colnames(mat) <- tableData[,minor][!duplicated(tableData[,minor])]
     rownames(mat) <- tableData[,major][!duplicated(tableData[,major])]
     table <- as.table(mat)
     print(textplot(table))
-    print(title("True Accept Rate at FAR=1e-4"))
+    print(title(paste("True Accept Rate at FAR=", toString(operatingPoint))))
 }
  
 plotLandmarkTables <- function(tableData=NULL) {