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