From a3dde17bfdb2bbedab36e60f946129f70dee94d9 Mon Sep 17 00:00:00 2001 From: Don van den Bergh Date: Wed, 9 Jul 2025 15:00:41 +0200 Subject: [PATCH] add drop = FALSE --- R/commonMachineLearningRegression.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/commonMachineLearningRegression.R b/R/commonMachineLearningRegression.R index 61fd1596..661e48dd 100644 --- a/R/commonMachineLearningRegression.R +++ b/R/commonMachineLearningRegression.R @@ -794,10 +794,10 @@ if (is.null(model)) { result <- switch(purpose, "regression" = jaspResults[["regressionResult"]]$object, "classification" = jaspResults[["classificationResult"]]$object) explainer <- result[["explainer"]] - x_test <- result[["test"]][, predictors] + x_test <- result[["test"]][, predictors, drop = FALSE] } else { explainer <- model[["explainer"]] - x_test <- dataset[, predictors] + x_test <- dataset[, predictors, drop = FALSE] predictions <- .mlPredictionsState(model, dataset, options, jaspResults, ready)[[1]][options[["fromIndex"]]:options[["toIndex"]]] } from <- min(c(options[["fromIndex"]], options[["toIndex"]] - 1, nrow(x_test)))