X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=R%2FR6_AgghooCV.R;h=c555641f4263cf8f57fd1187d907b3b6c97e818a;hb=7b5193cdf5eb7041710c52368764feeacbb36a7c;hp=2734d69b48d1ce30811a940f09d67ef59c3d4a72;hpb=1fdc3c344600de5932439a434abeff4b14e6591f;p=agghoo.git

diff --git a/R/R6_AgghooCV.R b/R/R6_AgghooCV.R
index 2734d69..c555641 100644
--- a/R/R6_AgghooCV.R
+++ b/R/R6_AgghooCV.R
@@ -89,7 +89,8 @@ AgghooCV <- R6::R6Class("AgghooCV",
         return (invisible(NULL))
       }
       V <- length(private$pmodels)
-      if (length(private$pmodels[[1]]$model(X[1,])) >= 2)
+      oneLineX <- as.data.frame(t(as.matrix(X[1,])))
+      if (length(private$pmodels[[1]]$model(oneLineX)) >= 2)
         # Soft classification:
         return (Reduce("+", lapply(private$pmodels, function(m) m$model(X))) / V)
       n <- nrow(X)