Add standardError checkbox and update dependencies

Co-authored-by: FBartos <[email protected]>

Author: Copilot

R/classicalmetaanalysiscommon.R

@@ -859,7 +859,7 @@ ClassicalMetaAnalysisCommon <- function(jaspResults, dataset, options, ...) {
   pooledEstimatesTable$position <- 4
   pooledEstimatesTable$dependOn(c("heterogeneityTau", "heterogeneityTau2", "heterogeneityI2", "heterogeneityH2",
                                   "confidenceIntervals", "confidenceIntervalsLevel", "predictionIntervals", "transformEffectSize",
-                                  "includeFullDatasetInSubgroupAnalysis"))
+                                  "standardError", "includeFullDatasetInSubgroupAnalysis"))
   modelSummaryContainer[["pooledEstimatesTable"]] <- pooledEstimatesTable
 
   pooledEstimatesTable$addColumnInfo(name = "par",  type = "string", title = "")
@@ -1331,7 +1331,7 @@ ClassicalMetaAnalysisCommon <- function(jaspResults, dataset, options, ...) {
   estimatedMarginalMeansTable$dependOn(c(switch(
     parameter,
     effectSize    = c("estimatedMarginalMeansEffectSize", "estimatedMarginalMeansEffectSizeSdFactorCovariates", "estimatedMarginalMeansEffectSizeTestAgainst",
-                      "estimatedMarginalMeansEffectSizeTestAgainstValue", "transformEffectSize", "predictionIntervals"),
+                      "estimatedMarginalMeansEffectSizeTestAgainstValue", "transformEffectSize", "predictionIntervals", "standardError"),
     heterogeneity = c("estimatedMarginalMeansHeterogeneity", "estimatedMarginalMeansHeterogeneityTransformation", "estimatedMarginalMeansHeterogeneitySdFactorCovariates")
   )))
   variableContainer[["estimatedMarginalMeansTable"]] <- estimatedMarginalMeansTable
@@ -1394,7 +1394,7 @@ ClassicalMetaAnalysisCommon <- function(jaspResults, dataset, options, ...) {
   contrastsTable$position <- 1
   contrastsTable$dependOn(switch(
     parameter,
-    effectSize    = c("contrastsEffectSize", "contrastsEffectSizePValueAdjustment", "predictionIntervals", "transformEffectSize"),
+    effectSize    = c("contrastsEffectSize", "contrastsEffectSizePValueAdjustment", "predictionIntervals", "transformEffectSize", "standardError"),
     heterogeneity = c("contrastsHeterogeneity", "contrastsHeterogeneityPValueAdjustment", "estimatedMarginalMeansHeterogeneityTransformation")
   ))
   variableContainer[["contrastsTable"]] <- contrastsTable
@@ -4723,7 +4723,7 @@ ClassicalMetaAnalysisCommon <- function(jaspResults, dataset, options, ...) {
 }
 .maAddSeColumn                  <- function(tempTable, options) {
 
-  if (options[["transformEffectSize"]] == "none") {
+  if (options[["standardError"]] && options[["transformEffectSize"]] == "none") {
     tempTable$addColumnInfo(name = "se", title = gettext("Standard Error"), type = "number")
   }
 

inst/qml/qml_components/ClassicalMetaAnalysisStatistics.qml

@@ -141,6 +141,14 @@ Section
 			}
 		}
 
+		CheckBox
+		{
+			text:		qsTr("Standard errors")
+			name:		"standardError"
+			checked:	true
+			info: qsTr("Include standard errors in the tabular output. Only available when no effect size transformation is applied.")
+		}
+
 		CheckBox
 		{
 			text:		qsTr("Prediction intervals")