From fa784cbe1630767f544ef1883bd6f0af5606724b Mon Sep 17 00:00:00 2001
From: Sylvain Schmitt <sylvain.m.schmitt@gmail.com>
Date: Wed, 15 May 2024 10:10:17 +0200
Subject: [PATCH] fixed

---
 R/evaluate.axes.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/evaluate.axes.R b/R/evaluate.axes.R
index a6d343d..18b995c 100755
--- a/R/evaluate.axes.R
+++ b/R/evaluate.axes.R
@@ -28,7 +28,7 @@ setMethod('evaluate.axes', "Algorithm.SDM", function(obj, cv, cv.param, final.fi
       } else {
         model.axes <- get_model(obj.axes, ...)
         predicted.values <- predict(model.axes, obj.axes@data[,-which(names(obj.axes@data)=="train")])
-        c <- cor(predicted.values, o.predicted.values)[1,1]
+        c <- cor(predicted.values, o.predicted.values)
         if (is.na(c) || !is.numeric(c)) {
           c <- 0
         }