Make sure shap table works

koenderks · koenderks · commit 2346fe1972ce · 2025-04-05T10:50:07.000+02:00
diff --git a/R/commonMachineLearningRegression.R b/R/commonMachineLearningRegression.R
@@ -786,7 +786,7 @@
   } else {
     explainer <- model[["explainer"]]
     x_test <- dataset[, predictors]
-    predictions <- .mlPredictionsState(model, dataset, options, jaspResults, ready)[options[["fromIndex"]]:options[["toIndex"]]]
+    predictions <- .mlPredictionsState(model, dataset, options, jaspResults, ready)[[1]][options[["fromIndex"]]:options[["toIndex"]]]
   }
   from <- min(c(options[["fromIndex"]], options[["toIndex"]] - 1, nrow(x_test)))
   to <- min(c(options[["toIndex"]], nrow(x_test)))

Original file line number	Diff line number	Diff line change
`@@ -786,7 +786,7 @@`
`786`	`786`	`} else {`
`787`	`787`	`explainer <- model[["explainer"]]`
`788`	`788`	`x_test <- dataset[, predictors]`
`789`		`- predictions <- .mlPredictionsState(model, dataset, options, jaspResults, ready)[options[["fromIndex"]]:options[["toIndex"]]]`
	`789`	`+ predictions <- .mlPredictionsState(model, dataset, options, jaspResults, ready)[[1]][options[["fromIndex"]]:options[["toIndex"]]]`
`790`	`790`	`}`
`791`	`791`	`from <- min(c(options[["fromIndex"]], options[["toIndex"]] - 1, nrow(x_test)))`
`792`	`792`	`to <- min(c(options[["toIndex"]], nrow(x_test)))`