From 005e74b195aa305f839bd3d98a1d5ab05a0afa0b Mon Sep 17 00:00:00 2001
From: David Hugh-Jones <davidhughjones@gmail.com>
Date: Thu, 28 Mar 2024 08:08:49 +0000
Subject: [PATCH] Fix breaking typo in plot.occurrence.threshold.R

---
 R/plot.occurrence.threshold.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/plot.occurrence.threshold.R b/R/plot.occurrence.threshold.R
index ade87da..682e3e5 100644
--- a/R/plot.occurrence.threshold.R
+++ b/R/plot.occurrence.threshold.R
@@ -18,7 +18,7 @@ plot.occurrence.threshold <- function(x, ...) {
       mdl.lab = "Logarithmic Loss"  	  
      } else {
        stop("Not a supported statistic")
-     }	 b
+     }
   dots <- as.list(match.call(expand.dots = TRUE)[-1])
   dots[["x"]] <- names(x$thresholds)
   dots[["y"]] <- x$thresholds