Fix state issue for Welch/BrownForsyth ANOVA (#2747)

jasp-stats · Aug 25, 2018 · 15fa365 · 15fa365
1 parent c968533
commit 15fa365
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 22 deletions.
diff --git a/JASP-Engine/JASP/R/ancova.R b/JASP-Engine/JASP/R/ancova.R
@@ -303,7 +303,7 @@ Ancova <- function(dataset=NULL, options, perform="run", callback=function(...)
 
   defaults <- c("modelTerms", "dependent", "wlsWeights")
   stateKey <- list(
-    model = c(defaults, "contrasts"),
+    model = c(defaults, "contrasts", "homogeneityCorrections", "homogeneityNone", "homogeneityBrown", "homogeneityWelch"),
     stateContrasts = c(defaults, "contrasts", "contrastAssumeEqualVariance", "confidenceIntervalIntervalContrast", "confidenceIntervalsContrast" ),
     statePostHoc = c(defaults, "postHocTestsVariables", "postHocTestsTypeStandard", "postHocTestsTypeDunn", "postHocTestsTypeDunnett",
                      "postHocTestsTypeGames", "postHocTestsHolm", "postHocTestsScheffe", "postHocTestsTukey", "postHocTestsBonferroni",
@@ -650,8 +650,6 @@ Ancova <- function(dataset=NULL, options, perform="run", callback=function(...)
 
 	if (options$homogeneityCorrections) {
 
-	  if (length(options$modelTerms) > 1)
-
 	  if (options$homogeneityNone) {
 	    corrections <- c(corrections, "None")
 	  }

diff --git a/Resources/Library/Anova.json b/Resources/Library/Anova.json
@@ -159,25 +159,6 @@
 		{
 			"name": "homogeneityTests",
 			"type": "Boolean"
-		},
-				{
-			"name": "homogeneityCorrections",
-			"type": "Boolean"
-		},
-		{
-			"name": "homogeneityNone",
-			"type": "Boolean",
-			"default": true
-		},
-		{
-			"name": "homogeneityWelch",
-			"type": "Boolean",
-			"default": true
-		},
-		{
-			"name": "homogeneityBrown",
-			"type": "Boolean",
-			"default": true
 		},
 		{
 			"name": "homogeneityCorrections",