diff --git a/R/equivalencebayesianindependentsamplesttest.R b/R/equivalencebayesianindependentsamplesttest.R index 8a2dd43..ab98af1 100644 --- a/R/equivalencebayesianindependentsamplesttest.R +++ b/R/equivalencebayesianindependentsamplesttest.R @@ -148,7 +148,7 @@ EquivalenceBayesianIndependentSamplesTTest <- function(jaspResults, dataset, opt equivalenceBayesianIndTTestTable$addColumnInfo(name = "variable", title = " ", type = "string", combine = TRUE) equivalenceBayesianIndTTestTable$addColumnInfo(name = "statistic", title = gettext("Model Comparison"), type = "string") equivalenceBayesianIndTTestTable$addColumnInfo(name = "bf", title = gettext("BF"), type = "number") - equivalenceBayesianIndTTestTable$addColumnInfo(name = "error", title = gettext("error %"), type = "number") + equivalenceBayesianIndTTestTable$addColumnInfo(name = "error", title = gettextf("error %%"), type = "number") equivalenceBayesianIndTTestTable$showSpecifiedColumnsOnly <- TRUE diff --git a/R/equivalencebayesianonesamplettest.R b/R/equivalencebayesianonesamplettest.R index 204e30f..843eba8 100644 --- a/R/equivalencebayesianonesamplettest.R +++ b/R/equivalencebayesianonesamplettest.R @@ -133,7 +133,7 @@ EquivalenceBayesianOneSampleTTest <- function(jaspResults, dataset, options) { equivalenceBayesianOneTTestTable$addColumnInfo(name = "variable", title = " ", type = "string", combine = TRUE) equivalenceBayesianOneTTestTable$addColumnInfo(name = "statistic", title = gettext("Model Comparison"), type = "string") equivalenceBayesianOneTTestTable$addColumnInfo(name = "bf", title = gettext("BF"), type = "number") - equivalenceBayesianOneTTestTable$addColumnInfo(name = "error", title = gettext("error %"), type = "number") + equivalenceBayesianOneTTestTable$addColumnInfo(name = "error", title = gettextf("error %%"), type = "number") if (ready) equivalenceBayesianOneTTestTable$setExpectedSize(length(options$variables)) diff --git a/R/equivalencebayesianpairedsamplesttest.R b/R/equivalencebayesianpairedsamplesttest.R index 7743179..cbb4b9b 100644 --- a/R/equivalencebayesianpairedsamplesttest.R +++ b/R/equivalencebayesianpairedsamplesttest.R @@ -146,7 +146,7 @@ EquivalenceBayesianPairedSamplesTTest <- function(jaspResults, dataset, options) equivalenceBayesianPairedTTestTable$addColumnInfo(name = "variable2", title = " ", type = "string") equivalenceBayesianPairedTTestTable$addColumnInfo(name = "statistic", title = gettext("Model Comparison"), type = "string") equivalenceBayesianPairedTTestTable$addColumnInfo(name = "bf", title = gettext("BF"), type = "number") - equivalenceBayesianPairedTTestTable$addColumnInfo(name = "error", title = gettext("error %"), type = "number") + equivalenceBayesianPairedTTestTable$addColumnInfo(name = "error", title = gettextf("error %%"), type = "number") if (ready) equivalenceBayesianPairedTTestTable$setExpectedSize(length(options$pairs))