From f2f3e53be25559cf0b6f7eded2e627e7cec80b8a Mon Sep 17 00:00:00 2001 From: Koen Derks Date: Wed, 16 Apr 2025 13:08:01 +0200 Subject: [PATCH] Remove all formatting from the tables --- R/commonMachineLearningClustering.R | 10 +++++----- R/mlClusteringRandomForest.R | 2 +- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/R/commonMachineLearningClustering.R b/R/commonMachineLearningClustering.R index e4e1caa7..735ce775 100644 --- a/R/commonMachineLearningClustering.R +++ b/R/commonMachineLearningClustering.R @@ -149,10 +149,10 @@ table$dependOn(options = .mlClusteringDependencies(options)) table$addColumnInfo(name = "clusters", title = gettext("Clusters"), type = "integer") table$addColumnInfo(name = "n", title = gettext("N"), type = "integer") - table$addColumnInfo(name = "measure", title = gettextf("R%s", "\u00B2"), type = "number", format = "dp:2") - table$addColumnInfo(name = "aic", title = gettext("AIC"), type = "number", format = "dp:2") - table$addColumnInfo(name = "bic", title = gettext("BIC"), type = "number", format = "dp:2") - table$addColumnInfo(name = "Silh", title = gettext("Silhouette"), type = "number", format = "dp:2") + table$addColumnInfo(name = "measure", title = gettextf("R%s", "\u00B2"), type = "number") + table$addColumnInfo(name = "aic", title = gettext("AIC"), type = "number") + table$addColumnInfo(name = "bic", title = gettext("BIC"), type = "number") + table$addColumnInfo(name = "Silh", title = gettext("Silhouette"), type = "number") if (type == "kmeans") { table$addCitation("Hartigan, J. A., & Wong, M. A. (1979). Algorithm AS 136: A k-means clustering algorithm. Journal of the Royal Statistical Society. Series C (Applied Statistics), 28(1), 100-108.") } else if (type == "kmedians") { @@ -245,7 +245,7 @@ if (options[["tableClusterInformationCentroids"]]) { for (i in seq_along(options[["predictors"]])) { title <- gettextf("Center %s", options[["predictors"]][i]) - table$addColumnInfo(name = paste0("centroid", i), title = title, type = "number", format = "dp:3") + table$addColumnInfo(name = paste0("centroid", i), title = title, type = "number") } } } diff --git a/R/mlClusteringRandomForest.R b/R/mlClusteringRandomForest.R index 4fd00f49..62a40b20 100644 --- a/R/mlClusteringRandomForest.R +++ b/R/mlClusteringRandomForest.R @@ -148,7 +148,7 @@ mlClusteringRandomForest <- function(jaspResults, dataset, options, ...) { table$position <- position table$dependOn(options = c(.mlClusteringDependencies(), "featureImportanceTable")) table$addColumnInfo(name = "variable", title = "", type = "string") - table$addColumnInfo(name = "measure", title = gettext("Mean decrease in Gini Index"), type = "number", format = "sf:4") + table$addColumnInfo(name = "measure", title = gettext("Mean decrease in Gini Index"), type = "number") jaspResults[["importanceTable"]] <- table if (!ready) { return()