disable scientific notation

bhklein
1 parent 9af93636
Showing 1 changed file with 2 additions and 0 deletions
share/openbr/plotting/plot_utils.R
@@ -71,7 +71,9 @@ plotFRR &lt;- function(tableData=NULL, operatingPoint=1e-4) {
     colnames(mat) <- tableData[,minor][!duplicated(tableData[,minor])]
     rownames(mat) <- tableData[,major][!duplicated(tableData[,major])]
     table <- as.table(mat)
+    options(scipen = 999)
     print(textplot(table))
+    options(scipen = 0)
     print(title(paste("False Reject Rate at FAR=", toString(operatingPoint))))
 }