diff --git a/JASP-Engine/JASP/R/ancova.R b/JASP-Engine/JASP/R/ancova.R index 9e167d796d..d5db4ff91c 100644 --- 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 index 463adc7e8c..f9c2a65557 100644 --- 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",