From ffe892591a5d1cf4c004812db3f915375c70c629 Mon Sep 17 00:00:00 2001 From: Johnny Date: Thu, 12 Sep 2024 16:03:14 +0200 Subject: [PATCH] add df to posthoc tables --- R/anovarepeatedmeasures.R | 3 ++- R/commonAnovaFreq.R | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/R/anovarepeatedmeasures.R b/R/anovarepeatedmeasures.R index 6df27b13..32c4cb33 100644 --- a/R/anovarepeatedmeasures.R +++ b/R/anovarepeatedmeasures.R @@ -932,8 +932,9 @@ AnovaRepeatedMeasuresInternal <- function(jaspResults, dataset = NULL, options) thisVarName <- paste(postHocVariables[[postHocVarIndex]], collapse = ":") byVariable <- if (options[["postHocConditionalTable"]] && length(postHocVariables[[postHocVarIndex]]) > 1) postHocVariables[[postHocVarIndex]] else NULL termsToLoop <- if (options[["postHocConditionalTable"]]) postHocVariables[[postHocVarIndex]] else 1 + dfType <- if (options[["poolErrorTermFollowup"]] && (length(postHocVariables[[postHocVarIndex]]) > 1)) "number" else "integer" for (termIndex in seq_along(termsToLoop)) - postHocContainer[[ paste0(thisVarName, termIndex)]] <- .createPostHocStandardTable(thisTitle, byVariable[termIndex], options) + postHocContainer[[ paste0(thisVarName, termIndex)]] <- .createPostHocStandardTable(thisTitle, byVariable[termIndex], options, dfType = dfType) if (options[["postHocLetterTable"]]) { letterTable <- createJaspTable(title = paste0("Letter-Based Grouping - ", thisVarName)) diff --git a/R/commonAnovaFreq.R b/R/commonAnovaFreq.R index 828b3db5..5c4eed39 100644 --- a/R/commonAnovaFreq.R +++ b/R/commonAnovaFreq.R @@ -65,7 +65,7 @@ return(coefTable) } -.createPostHocStandardTable <- function(myTitle, byVariable = NULL, options, makeBootstrapTable = FALSE) { +.createPostHocStandardTable <- function(myTitle, byVariable = NULL, options, makeBootstrapTable = FALSE, dfType = "integer") { preTitle <- if (!makeBootstrapTable) gettext("Post Hoc Comparisons - ") else gettext("Bootstrapped Post Hoc Comparisons - ") postHocTable <- createJaspTable(title = paste0(preTitle, myTitle)) #this paste is ok @@ -92,6 +92,7 @@ } postHocTable$addColumnInfo(name="SE", title=gettext("SE"), type="number") + postHocTable$addColumnInfo(name="df", title=gettext("df"), type = dfType) if (makeBootstrapTable) postHocTable$addColumnInfo(name="bias", title=gettext("bias"), type="number")