diff --git a/R/ancova.R b/R/ancova.R index 56e0df8c..cc634d71 100644 --- a/R/ancova.R +++ b/R/ancova.R @@ -900,7 +900,8 @@ AncovaInternal <- function(jaspResults, dataset = NULL, options) { if (!is.null(postHocContainer[["postHocStandardContainer"]])) return() - postHocStandardContainer <- createJaspContainer(title = gettext("Standard (LSD)")) + myTitle <- if (options[["postHocCorrectionTukey"]]) gettext("Standard (HSD)") else gettext("Standard") + postHocStandardContainer <- createJaspContainer(title = myTitle) postHocStandardContainer$dependOn(c("postHocTerms", "postHocTypeStandardEffectSize", "postHocTypeStandard", "postHocCorrectionBonferroni", "postHocCorrectionHolm", "postHocCorrectionScheffe", "postHocCorrectionTukey", "postHocCorrectionSidak", "postHocSignificanceFlag", @@ -933,6 +934,8 @@ AncovaInternal <- function(jaspResults, dataset = NULL, options) { wantsCorrections <- c(options[["postHocCorrectionTukey"]], options[["postHocCorrectionScheffe"]], options[["postHocCorrectionBonferroni"]], options[["postHocCorrectionHolm"]], options[["postHocCorrectionSidak"]]) + if (sum(wantsCorrections) == 0) + wantsCorrections <- "none" postHocCorrections <- c("tukey", "scheffe", "bonferroni", "holm", "sidak")[wantsCorrections] ## Computation 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") diff --git a/inst/help/Ancova.md b/inst/help/Ancova.md index 2c460746..5dbc5180 100755 --- a/inst/help/Ancova.md +++ b/inst/help/Ancova.md @@ -73,7 +73,7 @@ ANCOVA allows the user to analyze the difference between multiple group means, w ### Post Hoc Tests - To perform a post hoc test, drag one or more factor names to the right column. Several options are available: - Type: Different types of post hoc tests can be selected. - - Standard (LSD): Pairwise t-tests are performed. All the corrections can be applied to this method. This option is selected by default. + - Standard: Pairwise t-tests are performed. All the corrections can be applied to this method. When Tukey's p-value correction is selected, this is equivalent to Tukey's HSD. This option is selected by default. - Confidence intervals: When this option is selected, the confidence interval for the mean difference is calculated. This is done for every post hoc method except for Dunn. By default this is set to 95% but this can be adjusted into the desired percentage. - From `...` bootstraps: By selecting this option, the bootstrapped post hoc test is applied. By default, the number of replications is set to 1000. This can be changed into the desired number. - Effect size: By selecting this option, the effect size (i.e., the magnitude of the observed effect) will be displayed. The used measure for the effect size is Cohen's d. The effect size will only be displayed for the post hoc type `Standard`. diff --git a/inst/help/Ancova_nl.md b/inst/help/Ancova_nl.md index 98a93b28..06d42c4f 100644 --- a/inst/help/Ancova_nl.md +++ b/inst/help/Ancova_nl.md @@ -77,7 +77,7 @@ Met een ANCOVA kan men het verschil tussen meerdere groepsgemiddelden analyseren - Bonferroni: Deze correctie wordt gezien als vrij conservatief. Het risico op een type 1 fout wordt verminderd, maar de statistische kracht (power) wordt ook lager. - Holm: Deze methode wordt ook wel sequentiële Bonferroni genoemd, en wordt gezien als minder conservatief dan de Bonferroni methode. - Type: Er kunnen verschillende typen post-hoc toetsen worden geselecteerd. - - Standaard (LSD): Paarsgewijze t-toetsen worden uitgevoerd. Alle correcties kunnen op deze methode worden toegepast. Dit is de standaardoptie. + - Standaard: Paarsgewijze t-toetsen worden uitgevoerd. Alle correcties kunnen op deze methode worden toegepast. Als Tukey's p-waarde correctie is geselecteerd, is dit equivalent aan Tukey's HSD. Dit is de standaardoptie. - Games-Howell: Deze methode kan worden gebruikt wanneer groeps-/niveauvarianties niet gelijk zijn. De p-waarden worden gecorrigeerd met de Tukey methode. - Dunett: Als u deze methode selecteert, worden alle niveaus vergeleken met een specifiek niveau, bijvoorbeeld met de controlegroep. Momenteel is het nog niet mogelijk om handmatig te specificeren met welk niveau de andere niveaus worden vergeleken, maar dit is gebaseerd op de volgorde van de niveaus. Om de volgorde aan te passen kunnen de niveaulabels worden veranderd.
diff --git a/inst/help/Anova.md b/inst/help/Anova.md index 3d816ccc..f853c0b2 100755 --- a/inst/help/Anova.md +++ b/inst/help/Anova.md @@ -72,7 +72,7 @@ ANOVA allows the user to analyze the difference between multiple group means. ### Post Hoc Tests - To perform a post hoc test, drag one or more factor names to the right column. Several options are available: - Type: Different types of post hoc tests can be selected. - - Standard (LSD): Pairwise t-tests are performed. All the corrections can be applied to this method. This option is selected by default. + - Standard: Pairwise t-tests are performed. All the corrections can be applied to this method. When Tukey's p-value correction is selected, this is equivalent to Tukey's HSD. This option is selected by default. - Confidence intervals: When this option is selected, the confidence interval for the mean difference is calculated. This is done for every post hoc method except for Dunn. By default this is set to 95% but this can be adjusted into the desired percentage. - From `...` bootstraps: By selecting this option, the bootstrapped post hoc test is applied. By default, the number of replications is set to 1000. This can be changed into the desired number. - Effect size: By selecting this option, the effect size (i.e., the magnitude of the observed effect) will be displayed. The used measure for the effect size is Cohen's d. The effect size will only be displayed for the post hoc type `Standard`. diff --git a/inst/help/Anova_nl.md b/inst/help/Anova_nl.md index a238f706..39cfabca 100644 --- a/inst/help/Anova_nl.md +++ b/inst/help/Anova_nl.md @@ -81,7 +81,7 @@ Met een ANOVA berekent men het verschil tussen meerdere groepsgemiddelden. - Bonferroni: Deze correctie wordt gezien als vrij conservatief. Het risico op een type 1 fout wordt verminderd, maar statistische kracht (power) wordt ook lager. - Holm: Deze methode wordt ook wel sequentiële Bonferroni genoemd, en wordt gezien als minder conservatief dan de Bonferroni methode. - Type: Er kunnen verschillende typen post-hoc toets worden geselecteerd. - - Standaard (LSD): Paarsgewijze t-toetsen worden uitgevoerd. Alle correcties kunnen op deze methode worden toegepast. Dit is de standaardoptie. + - Standaard: Paarsgewijze t-toetsen worden uitgevoerd. Alle correcties kunnen op deze methode worden toegepast. Als Tukey's p-waarde correctie is geselecteerd, is dit equivalent aan Tukey's HSD. Dit is de standaardoptie. - Games-Howell: Deze methode kan worden gebruikt wanneer groeps-/niveauvarianties niet gelijk zijn. De p-waarden worden gecorrigeerd met de Tukey methode. - Dunett: Als u deze methode selecteert, worden alle niveaus vergeleken met een specifiek niveau, bijvoorbeeld met de controlegroep. Momenteel is het nog niet mogelijk om handmatig te specificeren met welk niveau de andere niveaus worden vergeleken, maar dit is gebaseerd op de volgorde van de niveaus. Om de volgorde aan te passen, kunnen de niveaulabels worden veranderd.
diff --git a/tests/testthat/test-ancova.R b/tests/testthat/test-ancova.R index cadf010a..ac586870 100644 --- a/tests/testthat/test-ancova.R +++ b/tests/testthat/test-ancova.R @@ -201,7 +201,7 @@ test_that("Post Hoc table results match", { jaspTools::expect_equal_tables(table, list("TRUE", 0.21391801479091, 0.698555762823947, -0.0779045273305165, -0.476129796984023, 0.32032074232299, "control", "experimental", - -0.0830902357515325, 0.698555762823947, -0.507658279613134, + -0.0830902357515325, 0.698555762823947, -0.507658279613134, 97, 0.698555762823947, 0.698555762823947, -0.388420937024623, 0.698555762823947, 0.341477808110069) ) @@ -354,9 +354,9 @@ test_that("Field - Chapter 6 results match", { table <- results$results$anovaContainer$collection$anovaContainer_postHocContainer$collection$anovaContainer_postHocContainer_postHocStandardContainer$collection[[1]]$data jaspTools::expect_equal_tables(table, list("TRUE", 0.538336190074754, -0.0194100366350722, 1, 2, -1.78324124481148, - -2.83630538964887, 0.129983128349044, -2.1023947223315, -0.858078871455782, - "FALSE", 0.763324066789791, -0.0155779657803694, 1, 3, -2.18556663740395, - -3.97107607430337, 0.0302155022603601, -2.77136409916095, -0.844312084720958, + -2.83630538964887, 0.129983128349044, -2.1023947223315, -0.858078871455782,26, + "FALSE", 0.763324066789791, -0.0155779657803694, 1, 3, -2.18556663740395, 26, + -3.97107607430337, 0.0302155022603601, -2.77136409916095, -0.844312084720958,26, "FALSE", 0.775278163963213, 0.00383207085470289, 2, 3, -0.410252544853603, -2.12122714048355, 0.932499470707816, -0.541407321622228, 0.972524781215359 )) diff --git a/tests/testthat/test-anova.R b/tests/testthat/test-anova.R index 0e556ff5..05112ad3 100644 --- a/tests/testthat/test-anova.R +++ b/tests/testthat/test-anova.R @@ -150,7 +150,7 @@ test_that("Post Hoc table results match", { table <- results$results$anovaContainer$collection$anovaContainer_postHocContainer$collection$anovaContainer_postHocContainer_postHocStandardContainer$collection$anovaContainer_postHocContainer_postHocStandardContainer_contBinom$data jaspTools::expect_equal_tables(table, list("TRUE", 0.214904085649005, 0.448976320466698, 0.15401876311258, - -0.24864690950018, 0.55668443572534, 0, 1, 0.163364220743842, + -0.24864690950018, 0.55668443572534, 0, 1, 0.163364220743842, 98, 0.448976320466698, -0.263105943067512, 0.448976320466698, 0.448976320466698, 0.760172707980336, 0.448976320466698, 0.589834384555196) ) @@ -507,11 +507,12 @@ test_that("Post Hoc Comparisons - Species table results match and contrast names table <- results[["results"]][["anovaContainer"]][["collection"]][["anovaContainer_postHocContainer"]][["collection"]][["anovaContainer_postHocContainer_postHocStandardContainer"]][["collection"]][["anovaContainer_postHocContainer_postHocStandardContainer_Species1"]][["data"]] jaspTools::expect_equal_tables(table, list("TRUE", 0.286589136802729, "First species", "Second species", - -1.6, -5.58290526239083, 0.000324812090923943, "FALSE", 0.286589136802729, - "First species", "Third species", -1.54, -5.37354631505117, - 0.000453440993214982, "FALSE", 0.286589136802729, "Second species", - "Third species", 0.0599999999999998, 0.209358947339655, 0.976174158311121 - )) + 12, -1.6, -5.58290526239083, 0.000324812090923943, "FALSE", + 0.286589136802729, "First species", "Third species", 12, -1.54, + -5.37354631505117, 0.000453440993215093, "FALSE", 0.286589136802729, + "Second species", "Third species", 12, 0.0600000000000003, 0.209358947339657, + 0.97617415831112) + ) # following https://github.com/jasp-stats/jasp-issues/issues/1295, assert that these names do not contain commas. contrast_A <- vapply(table, `[[`, "contrast_A", FUN.VALUE = character(1L)) @@ -581,11 +582,11 @@ test_that("Field - Chapter 5 results match", { # standard post hoc (tukey) table <- results[["results"]]$anovaContainer$collection$anovaContainer_postHocContainer$collection$anovaContainer_postHocContainer_postHocStandardContainer$collection$anovaContainer_postHocContainer_postHocStandardContainer_Dose$data jaspTools::expect_equal_tables(table, - list("TRUE", 0.886942313043338, 1, 2, -1, -3.36624115850686, -1.12746904200424, - 0.516276123508473, 1.36624115850686, "FALSE", 0.886942313043338, - 1, 3, -2.8, -5.16624115850687, -3.15691331761188, 0.0209243994922408, - -0.433758841493136, "FALSE", 0.886942313043338, 2, 3, -1.8, - -4.16624115850686, -2.02944427560764, 0.147457622995377, 0.566241158506864 + list("TRUE", 0.886942313043338, 1, 2, 12, -1, -3.36624115850687, -1.12746904200424, + 0.516276123508473, 1.36624115850687, "FALSE", 0.886942313043338, + 1, 3, 12, -2.8, -5.16624115850687, -3.15691331761188, 0.020924399492241, + -0.433758841493132, "FALSE", 0.886942313043338, 2, 3, 12, -1.8, + -4.16624115850687, -2.02944427560764, 0.147457622995377, 0.566241158506867 )) # games-howell post hoc @@ -658,14 +659,14 @@ test_that("Field - Chapter 7 results match", { # removed both post hoc table and contrast table because bootstrap results are now in same table table <- results[["results"]]$anovaContainer$collection$anovaContainer_postHocContainer$collection$anovaContainer_postHocContainer_postHocStandardContainer$collection$anovaContainer_postHocContainer_postHocStandardContainer_Alcohol$data jaspTools::expect_equal_tables(table, - list("TRUE", 0.392000159227314, -0.00376914898826786, 0.230950085511107, - 0, 1, -0.769579725829724, -1.48733254329573, -1.8129965586672, - 0.177726007657148, 0.0548973391001529, "FALSE", 0.435378856593833, - 0.0142934574412505, 0.00359956767679779, 0, 2, -1.43536324786325, - -2.31465226049576, -3.47491007077881, 0.00337043014651417, -0.602581004497449, - "FALSE", 0.407611902363181, 0.0180626064295184, 0.311931949521, - 1, 2, -0.690674603174603, -1.43846891737073, -1.66191351211161, - 0.231712504393661, 0.214248742598683)) + list("TRUE", 0.392000159227314, -0.00376914898826863, 0.230950085511108, + 0, 1, 42, -0.769579725829724, -1.48733254329573, -1.8129965586672, + 0.177726007657148, 0.0548973391001528, "FALSE", 0.435378856593833, + 0.014293457441249, 0.00359956767679781, 0, 2, 42, -1.43536324786325, + -2.31465226049576, -3.47491007077881, 0.00337043014651439, -0.602581004497448, + "FALSE", 0.407611902363181, 0.0180626064295178, 0.311931949521002, + 1, 2, 42, -0.690674603174603, -1.43846891737072, -1.6619135121116, + 0.231712504393662, 0.214248742598684)) table <- results[["results"]]$anovaContainer$collection$anovaContainer_marginalMeansContainer$collection[[1]]$data diff --git a/tests/testthat/test-anovarepeatedmeasures.R b/tests/testthat/test-anovarepeatedmeasures.R index 9874ce9b..6d7b90e6 100644 --- a/tests/testthat/test-anovarepeatedmeasures.R +++ b/tests/testthat/test-anovarepeatedmeasures.R @@ -125,14 +125,15 @@ test_that("Post-hoc tests match (Field Chapter 8)", { options = options) refTable <- list("TRUE", 2.84948954082566, 0.703009687611415, 0.362221443896783, - -0.427137554801075, 1.15158044259464, "Beer", "Wine", 3.5, 0.234336562537138, - -3.98021184328793, 1.22829017262714, 10.9802118432879, "FALSE", - 3.3351289023547, 0.0660988675936689, 0.860707145259498, -0.116698645024244, - 1.83811293554324, "Beer", "Water", 8.31666666666667, 0.0440659117291126, - -0.438399936264863, 2.49365674016224, 17.0717332695982, "TRUE", - 1.1164571680934, 0.00112213065327869, 0.498485701362715, 0.128265517717469, - 0.868705885007961, "Wine", "Water", 4.81666666666667, 0.00112213065327869, - 1.88584835284472, 4.31424223366509, 7.74748498048862) + -0.427137554801075, 1.15158044259464, "Beer", "Wine", 19, 3.5, + 0.234336562537138, -3.98021184328793, 1.22829017262714, 10.9802118432879, + "FALSE", 3.3351289023547, 0.0660988675936689, 0.860707145259498, + -0.116698645024244, 1.83811293554324, "Beer", "Water", 19, 8.31666666666667, + 0.0440659117291126, -0.438399936264863, 2.49365674016224, 17.0717332695982, + "TRUE", 1.1164571680934, 0.00112213065327869, 0.498485701362715, + 0.128265517717469, 0.868705885007961, "Wine", "Water", 19, 4.81666666666667, + 0.00112213065327869, 1.88584835284472, 4.31424223366509, 7.74748498048862 + ) table <- results[["results"]]$rmAnovaContainer$collection$rmAnovaContainer_postHocStandardContainer$collection[[1]]$data jaspTools::expect_equal_tables(table, refTable) @@ -140,134 +141,134 @@ test_that("Post-hoc tests match (Field Chapter 8)", { refTable <- list("TRUE", 1.11255461788524, 8.64627761186185e-10, 1.37299175877066, 0.714799874120407, 2.03118364342092, "Positive", "Neutral", - 13.2666666666667, 5.76418507457457e-10, 10.3460929604728, 11.9245082024684, - 16.1872403728605, "FALSE", 1.91462133431161, 5.36180351283324e-11, - 2.77875593389389, 1.9137049465132, 3.64380692127458, "Positive", - "Negative", 26.85, 5.36180351283324e-11, 21.8239162137161, 14.0236607201777, - 31.8760837862839, "TRUE", 1.97985098972637, 4.54655986206157e-06, - 1.40576417512323, 0.857440646887211, 1.95408770335925, "Neutral", - "Negative", 13.5833333333333, 1.51551995402052e-06, 8.38601479290267, - 6.86078568731614, 18.780651873764) + 19, 13.2666666666667, 5.76418507457457e-10, 10.3460929604728, + 11.9245082024684, 16.1872403728605, "FALSE", 1.91462133431161, + 5.36180351283324e-11, 2.77875593389389, 1.9137049465132, 3.64380692127458, + "Positive", "Negative", 19, 26.85, 5.36180351283324e-11, 21.8239162137161, + 14.0236607201777, 31.8760837862839, "TRUE", 1.97985098972637, + 4.54655986206157e-06, 1.40576417512323, 0.857440646887211, 1.95408770335925, + "Neutral", "Negative", 19, 13.5833333333333, 1.51551995402052e-06, + 8.38601479290267, 6.86078568731614, 18.780651873764) table <- results[["results"]]$rmAnovaContainer$collection$rmAnovaContainer_postHocStandardContainer$collection[[3]]$data jaspTools::expect_equal_tables(table, refTable) refTable <- list("TRUE", 3.46721486893565, 1, -0.445014916787477, -1.81373548045414, - 0.923705646879189, "Beer, Positive", "Wine, Positive", -4.30000000000001, + 0.923705646879189, "Beer, Positive", "Wine, Positive", 19, -4.30000000000001, 0.922662837497563, -17.2656041481929, -1.24018849784179, 8.6656041481929, "FALSE", 3.75939174811424, 1, 0.377745220063787, -1.095098448011, - 1.85058888813857, "Beer, Positive", "Water, Positive", 3.65, + 1.85058888813857, "Beer, Positive", "Water, Positive", 19, 3.65, 1, -10.4081957238189, 0.970901742770191, 17.7081957238188, "FALSE", 2.66603885153513, 0.0198201447121736, 1.1435848443027, -0.0997231522906254, - 2.38689284089602, "Beer, Positive", "Beer, Neutral", 11.05, + 2.38689284089602, "Beer, Positive", "Beer, Neutral", 19, 11.05, 0.00825839363007232, 1.08038297325989, 4.14472579558896, 21.0196170267401, "FALSE", 3.34065861769801, 0.399051281084609, 0.972823306465644, -0.448352572155917, 2.39399918508721, "Beer, Positive", "Wine, Neutral", - 9.4, 0.121932335886964, -3.09234872040626, 2.81381639841947, + 19, 9.4, 0.121932335886964, -3.09234872040626, 2.81381639841947, 21.8923487204063, "FALSE", 3.64193413044859, 0.00212064208374063, 1.93529742881995, 0.100950399557992, 3.76964445808191, "Beer, Positive", - "Water, Neutral", 18.7, 0.00117813449096702, 5.08103548405554, + "Water, Neutral", 19, 18.7, 0.00117813449096702, 5.08103548405554, 5.1346343262108, 32.3189645159445, "FALSE", 3.23907069193749, 0.00216685898320669, 1.71796456248188, 0.0877920219702268, 3.34813710299354, - "Beer, Positive", "Beer, Negative", 16.6, 0.00117813449096702, + "Beer, Positive", "Beer, Negative", 19, 16.6, 0.00117813449096702, 4.48753798446683, 5.12492673942553, 28.7124620155332, "FALSE", 3.06720771352296, 5.6165754362217e-08, 3.42040534879676, 2.10440771856973, - 4.73640297902379, "Beer, Positive", "Wine, Negative", 33.05, + 4.73640297902379, "Beer, Positive", "Wine, Negative", 19, 33.05, 4.83649551452424e-08, 21.5802173193464, 10.7752728497279, 44.5197826806536, "FALSE", 3.59742232277794, 2.85560149977802e-06, 3.13062819367934, 1.55209869024117, 4.7091576971175, "Beer, Positive", "Water, Negative", - 30.25, 2.06237886095079e-06, 16.7974868001677, 8.40879865799043, + 19, 30.25, 2.06237886095079e-06, 16.7974868001677, 8.40879865799043, 43.7025131998323, "TRUE", 2.22482997576278, 0.0730045740515507, 0.822760136851263, -0.172462854620356, 1.81798312832288, "Wine, Positive", - "Water, Positive", 7.95, 0.0283906676867142, -0.369722270811851, + "Water, Positive", 19, 7.95, 0.0283906676867142, -0.369722270811851, 3.5733067634862, 16.2697222708119, "FALSE", 3.09181857573551, 0.00309676924424363, 1.58859976109018, 0.0522315422126434, 3.12496797996771, - "Wine, Positive", "Beer, Neutral", 15.35, 0.00146236325422616, + "Wine, Positive", "Beer, Neutral", 19, 15.35, 0.00146236325422616, 3.78818532558322, 4.96471562738716, 26.9118146744168, "FALSE", 1.87378030504618, 2.23616547272198e-05, 1.41783822325312, 0.292836386008158, - 2.54284006049808, "Wine, Positive", "Wine, Neutral", 13.7, 1.55289268939026e-05, - 6.69302333017313, 7.31142277624824, 20.7069766698269, "FALSE", - 1.60262941837206, 4.30058246593928e-10, 2.38031234560743, 0.808786558672926, - 3.95183813254193, "Wine, Positive", "Water, Neutral", 23, 3.94220059377767e-10, - 17.006988484899, 14.3514150784547, 28.993011515101, "FALSE", - 4.74890569112063, 0.011052375943825, 2.16297947926936, -0.0951987256471951, - 4.42115768418591, "Wine, Positive", "Beer, Negative", 20.9, - 0.00491216708614447, 3.14152997270924, 4.40101390917875, 38.6584700272908, - "FALSE", 2.48709828811345, 1.94121686860167e-10, 3.86542026558424, - 2.58913664033462, 5.14170389083386, "Wine, Positive", "Wine, Negative", - 37.35, 1.88729417780718e-10, 28.0495288436721, 15.0175005863284, - 46.6504711563279, "FALSE", 2.36807161164833, 3.22326890748401e-10, - 3.57564311046681, 2.20892896511485, 4.94235725581878, "Wine, Positive", - "Water, Negative", 34.55, 3.04419841262379e-10, 25.6946275261761, - 14.5899304016195, 43.4053724738239, "TRUE", 3.12830877463745, - 1, 0.765839624238912, -0.530912899083633, 2.06259214756146, - "Water, Positive", "Beer, Neutral", 7.4, 0.230354980867463, - -4.29826929062482, 2.36549539482643, 19.0982692906248, "FALSE", - 1.68565932750988, 0.105471813829176, 0.595078086401858, -0.150500827453272, - 1.34065700025699, "Water, Positive", "Wine, Neutral", 5.75, - 0.038087043882758, -0.553500762244738, 3.41112815986023, 12.0535007622447, - "FALSE", 1.65985890332503, 8.95625360209062e-07, 1.55755220875617, - 0.415016344793981, 2.70008807271835, "Water, Positive", "Water, Neutral", - 15.05, 6.71719020156797e-07, 8.84297958278184, 9.06703574011734, - 21.2570204172182, "FALSE", 4.7386845831884, 0.47583632133112, - 1.3402193424181, -0.665816349121889, 3.34625503395808, "Water, Positive", - "Beer, Negative", 12.95, 0.132176755925311, -4.77024832935314, - 2.732825908258, 30.6702483293531, "FALSE", 2.18415345518337, - 1.30969584816634e-09, 3.04266012873298, 2.13192840866075, 3.9533918488052, - "Water, Positive", "Wine, Negative", 29.4, 1.16417408725897e-09, - 21.2323870399446, 13.4605926750379, 37.5676129600554, "FALSE", - 1.6389984104549, 4.91844300671117e-11, 2.75288297361555, 1.93596124750842, - 3.56980469972268, "Water, Positive", "Water, Negative", 26.6, - 4.91844300671117e-11, 20.470987119988, 16.229423915437, 32.729012880012, - "TRUE", 3.02557084652937, 1, -0.170761537837055, -1.34624990673336, - 1.00472683105925, "Beer, Neutral", "Wine, Neutral", -1.65, 1, - -12.9640821671819, -0.545351632368059, 9.66408216718189, "FALSE", - 3.03425617348236, 0.748384942811422, 0.791712584517254, -0.476982389768982, - 2.06040755880349, "Beer, Neutral", "Water, Neutral", 7.65, 0.187096235702856, - -3.69656083245846, 2.52121098635526, 18.9965608324585, "FALSE", - 2.60412122767375, 1, 0.574379718179184, -0.491964315738882, - 1.64072375209725, "Beer, Neutral", "Beer, Negative", 5.55, 0.324433942639524, - -4.188076891176, 2.13123718704823, 15.288076891176, "FALSE", - 2.20406323340373, 1.95183637425166e-07, 2.27682050449406, 1.41464206030051, - 3.13899894868762, "Beer, Neutral", "Wine, Negative", 22, 1.57231263481384e-07, - 13.757934687598, 9.9815648056637, 30.242065312402, "FALSE", - 2.93401108597626, 0.000103833214494514, 1.98704334937664, 0.850452142396452, - 3.12363455635682, "Beer, Neutral", "Water, Negative", 19.2, - 6.63378870381617e-05, 8.22830434652135, 6.54394255419503, 30.1716956534786, - "TRUE", 1.39566999568025, 8.13249630417116e-05, 0.962474122354309, - 0.167089182192478, 1.75785906251614, "Wine, Neutral", "Water, Neutral", - 9.3, 5.42166420278077e-05, 4.08091050900022, 6.66346631279924, - 14.5190894909998, "FALSE", 4.84637683440451, 1, 0.745141256016239, - -1.18413805977333, 2.6744205718058, "Wine, Neutral", "Beer, Negative", - 7.2, 0.922662837497563, -10.9229620785372, 1.48564592602191, - 25.3229620785372, "FALSE", 2.39217474278114, 2.27680923691313e-07, - 2.44758204233112, 1.52153444862556, 3.37362963603667, "Wine, Neutral", - "Wine, Negative", 23.65, 1.77085162871022e-07, 14.7044941860708, - 9.88640151450833, 32.5955058139292, "FALSE", 2.01347434733309, - 1.07662631203344e-07, 2.15780488721369, 1.3635418886875, 2.95206788573988, - "Wine, Neutral", "Water, Negative", 20.85, 8.97188593361198e-08, - 13.320639306506, 10.3552349835579, 28.379360693494, "TRUE", - 4.99678844227391, 1, -0.21733286633807, -2.15561081603155, 1.72094508335541, - "Water, Neutral", "Beer, Negative", -2.1, 1, -20.7854242969594, - -0.420269944237292, 16.5854242969594, "FALSE", 2.43578043259024, - 0.00040741668068189, 1.48510791997681, 0.364551143384814, 2.6056646965688, - "Water, Neutral", "Wine, Negative", 14.35, 0.000248976860416711, - 5.24143128571844, 5.89133560972902, 23.4585687142816, "FALSE", - 2.04357143514151, 0.000681887975826525, 1.19533076485938, 0.295094811547108, - 2.09556671817166, "Water, Neutral", "Water, Negative", 11.55, - 0.000397767985898806, 3.90809164468282, 5.65186995736228, 19.1919083553172, - "TRUE", 3.26744306920967, 0.00264983094672072, 1.70244078631488, - 0.352002031252378, 3.05287954137738, "Beer, Negative", "Wine, Negative", - 16.45, 0.00132491547336036, 4.23143985488445, 5.03451771050411, - 28.6685601451155, "FALSE", 4.32938247693351, 0.188595268759247, - 1.41266363119745, -0.289165924357466, 3.11449318675237, "Beer, Negative", - "Water, Negative", 13.65, 0.0628650895864158, -2.53966851606586, - 3.15287458955769, 29.8396685160659, "TRUE", 1.89264504415326, - 1, -0.289777155117426, -1.04304119549722, 0.463486885262369, - "Wine, Negative", "Water, Negative", -2.8, 0.922662837497563, - -9.87752111223013, -1.47941105420149, 4.27752111223013) - + 2.54284006049808, "Wine, Positive", "Wine, Neutral", 19, 13.7, + 1.55289268939026e-05, 6.69302333017313, 7.31142277624824, 20.7069766698269, + "FALSE", 1.60262941837206, 4.30058246593928e-10, 2.38031234560743, + 0.808786558672926, 3.95183813254193, "Wine, Positive", "Water, Neutral", + 19, 23, 3.94220059377767e-10, 17.006988484899, 14.3514150784547, + 28.993011515101, "FALSE", 4.74890569112063, 0.011052375943825, + 2.16297947926936, -0.0951987256471951, 4.42115768418591, "Wine, Positive", + "Beer, Negative", 19, 20.9, 0.00491216708614447, 3.14152997270924, + 4.40101390917875, 38.6584700272908, "FALSE", 2.48709828811345, + 1.94121686860167e-10, 3.86542026558424, 2.58913664033462, 5.14170389083386, + "Wine, Positive", "Wine, Negative", 19, 37.35, 1.88729417780718e-10, + 28.0495288436721, 15.0175005863284, 46.6504711563279, "FALSE", + 2.36807161164833, 3.22326890748401e-10, 3.57564311046681, 2.20892896511485, + 4.94235725581878, "Wine, Positive", "Water, Negative", 19, 34.55, + 3.04419841262379e-10, 25.6946275261761, 14.5899304016195, 43.4053724738239, + "TRUE", 3.12830877463745, 1, 0.765839624238912, -0.530912899083633, + 2.06259214756146, "Water, Positive", "Beer, Neutral", 19, 7.4, + 0.230354980867463, -4.29826929062482, 2.36549539482643, 19.0982692906248, + "FALSE", 1.68565932750988, 0.105471813829176, 0.595078086401858, + -0.150500827453272, 1.34065700025699, "Water, Positive", "Wine, Neutral", + 19, 5.75, 0.038087043882758, -0.553500762244738, 3.41112815986023, + 12.0535007622447, "FALSE", 1.65985890332503, 8.95625360209062e-07, + 1.55755220875617, 0.415016344793981, 2.70008807271835, "Water, Positive", + "Water, Neutral", 19, 15.05, 6.71719020156797e-07, 8.84297958278184, + 9.06703574011734, 21.2570204172182, "FALSE", 4.7386845831884, + 0.47583632133112, 1.3402193424181, -0.665816349121889, 3.34625503395808, + "Water, Positive", "Beer, Negative", 19, 12.95, 0.132176755925311, + -4.77024832935314, 2.732825908258, 30.6702483293531, "FALSE", + 2.18415345518337, 1.30969584816634e-09, 3.04266012873298, 2.13192840866075, + 3.9533918488052, "Water, Positive", "Wine, Negative", 19, 29.4, + 1.16417408725897e-09, 21.2323870399446, 13.4605926750379, 37.5676129600554, + "FALSE", 1.6389984104549, 4.91844300671117e-11, 2.75288297361555, + 1.93596124750842, 3.56980469972268, "Water, Positive", "Water, Negative", + 19, 26.6, 4.91844300671117e-11, 20.470987119988, 16.229423915437, + 32.729012880012, "TRUE", 3.02557084652937, 1, -0.170761537837055, + -1.34624990673336, 1.00472683105925, "Beer, Neutral", "Wine, Neutral", + 19, -1.65, 1, -12.9640821671819, -0.545351632368059, 9.66408216718189, + "FALSE", 3.03425617348236, 0.748384942811422, 0.791712584517254, + -0.476982389768982, 2.06040755880349, "Beer, Neutral", "Water, Neutral", + 19, 7.65, 0.187096235702856, -3.69656083245846, 2.52121098635526, + 18.9965608324585, "FALSE", 2.60412122767375, 1, 0.574379718179184, + -0.491964315738882, 1.64072375209725, "Beer, Neutral", "Beer, Negative", + 19, 5.55, 0.324433942639524, -4.188076891176, 2.13123718704823, + 15.288076891176, "FALSE", 2.20406323340373, 1.95183637425166e-07, + 2.27682050449406, 1.41464206030051, 3.13899894868762, "Beer, Neutral", + "Wine, Negative", 19, 22, 1.57231263481384e-07, 13.757934687598, + 9.9815648056637, 30.242065312402, "FALSE", 2.93401108597626, + 0.000103833214494514, 1.98704334937664, 0.850452142396452, 3.12363455635682, + "Beer, Neutral", "Water, Negative", 19, 19.2, 6.63378870381617e-05, + 8.22830434652135, 6.54394255419503, 30.1716956534786, "TRUE", + 1.39566999568025, 8.13249630417116e-05, 0.962474122354309, 0.167089182192478, + 1.75785906251614, "Wine, Neutral", "Water, Neutral", 19, 9.3, + 5.42166420278077e-05, 4.08091050900022, 6.66346631279924, 14.5190894909998, + "FALSE", 4.84637683440451, 1, 0.745141256016239, -1.18413805977333, + 2.6744205718058, "Wine, Neutral", "Beer, Negative", 19, 7.2, + 0.922662837497563, -10.9229620785372, 1.48564592602191, 25.3229620785372, + "FALSE", 2.39217474278114, 2.27680923691313e-07, 2.44758204233112, + 1.52153444862556, 3.37362963603667, "Wine, Neutral", "Wine, Negative", + 19, 23.65, 1.77085162871022e-07, 14.7044941860708, 9.88640151450833, + 32.5955058139292, "FALSE", 2.01347434733309, 1.07662631203344e-07, + 2.15780488721369, 1.3635418886875, 2.95206788573988, "Wine, Neutral", + "Water, Negative", 19, 20.85, 8.97188593361198e-08, 13.320639306506, + 10.3552349835579, 28.379360693494, "TRUE", 4.99678844227391, + 1, -0.21733286633807, -2.15561081603155, 1.72094508335541, "Water, Neutral", + "Beer, Negative", 19, -2.1, 1, -20.7854242969594, -0.420269944237292, + 16.5854242969594, "FALSE", 2.43578043259024, 0.00040741668068189, + 1.48510791997681, 0.364551143384814, 2.6056646965688, "Water, Neutral", + "Wine, Negative", 19, 14.35, 0.000248976860416711, 5.24143128571844, + 5.89133560972902, 23.4585687142816, "FALSE", 2.04357143514151, + 0.000681887975826525, 1.19533076485938, 0.295094811547108, 2.09556671817166, + "Water, Neutral", "Water, Negative", 19, 11.55, 0.000397767985898806, + 3.90809164468282, 5.65186995736228, 19.1919083553172, "TRUE", + 3.26744306920967, 0.00264983094672072, 1.70244078631488, 0.352002031252378, + 3.05287954137738, "Beer, Negative", "Wine, Negative", 19, 16.45, + 0.00132491547336036, 4.23143985488445, 5.03451771050411, 28.6685601451155, + "FALSE", 4.32938247693351, 0.188595268759247, 1.41266363119745, + -0.289165924357466, 3.11449318675237, "Beer, Negative", "Water, Negative", + 19, 13.65, 0.0628650895864158, -2.53966851606586, 3.15287458955769, + 29.8396685160659, "TRUE", 1.89264504415326, 1, -0.289777155117426, + -1.04304119549722, 0.463486885262369, "Wine, Negative", "Water, Negative", + 19, -2.8, 0.922662837497563, -9.87752111223013, -1.47941105420149, + 4.27752111223013) table <- results[["results"]]$rmAnovaContainer$collection$rmAnovaContainer_postHocStandardContainer$collection[[2]]$data jaspTools::expect_equal_tables(table, refTable) @@ -290,13 +291,13 @@ test_that("Post-hoc tests match (pooled errors)", { options = options) refTable <- list("TRUE", 2.61337279180141, 0.565320794343042, 0.362221443896782, - -0.322203183269585, 1.04664607106315, "Beer", "Wine", 3.49999999999999, + -0.322203183269585, 1.04664607106315, "Beer", "Wine", 38, 3.49999999999999, 0.188440264781014, -3.04548944633882, 1.33926549284514, 10.0454894463388, "FALSE", 2.61337279180141, 0.00873013088303192, 0.860707145259498, - 0.108019449155344, 1.61339484136365, "Beer", "Water", 8.31666666666667, + 0.108019449155344, 1.61339484136365, "Beer", "Water", 38, 8.31666666666667, 0.00873013088303192, 1.77117722032785, 3.18234990918917, 14.8621561130055, "TRUE", 2.61337279180141, 0.219382129920764, 0.498485701362716, - -0.199590871891703, 1.19656227461714, "Wine", "Water", 4.81666666666667, + -0.199590871891703, 1.19656227461714, "Wine", "Water", 38, 4.81666666666667, 0.146254753280509, -1.72882277967214, 1.84308441634403, 11.3621561130055) table <- results[["results"]]$rmAnovaContainer$collection$rmAnovaContainer_postHocStandardContainer$collection[[1]]$data @@ -305,134 +306,143 @@ test_that("Post-hoc tests match (pooled errors)", { refTable <-list("TRUE", 1.71496963754459, 7.62555340826258e-09, 1.37299175877066, 0.670396659452183, 2.07558685808914, "Positive", "Neutral", - 13.2666666666667, 2.89922577241315e-09, 8.971330119751, 7.73580264992986, - 17.5620032135823, "FALSE", 1.71496963754458, 1.10774185836497e-17, - 2.77875593389389, 1.99539484787656, 3.56211701991122, "Positive", - "Negative", 26.85, 1.10774185836497e-17, 22.5546634530843, 15.6562538555741, - 31.1453365469156, "TRUE", 1.71496963754459, 4.34883865861973e-09, - 1.40576417512323, 0.956611951019805, 1.85491639922665, "Neutral", - "Negative", 13.5833333333333, 2.89922577241315e-09, 9.28799678641767, - 7.92045120564427, 17.878669880249) + 38, 13.2666666666667, 2.89922577241315e-09, 8.971330119751, + 7.73580264992986, 17.5620032135823, "FALSE", 1.71496963754458, + 1.10774185836497e-17, 2.77875593389389, 1.99539484787656, 3.56211701991122, + "Positive", "Negative", 38, 26.85, 1.10774185836497e-17, 22.5546634530843, + 15.6562538555741, 31.1453365469156, "TRUE", 1.71496963754459, + 4.34883865861973e-09, 1.40576417512323, 0.956611951019805, 1.85491639922665, + "Neutral", "Negative", 38, 13.5833333333333, 2.89922577241315e-09, + 9.28799678641767, 7.92045120564427, 17.878669880249) table <- results[["results"]]$rmAnovaContainer$collection$rmAnovaContainer_postHocStandardContainer$collection[[3]]$data jaspTools::expect_equal_tables(table, refTable) - refTable <- list("TRUE", 3.06258786722021, 1, -0.445014916787477, -1.50992951200853, - 0.619899678433579, "Beer, Positive", "Wine, Positive", -4.30000000000001, - 0.824625255450165, -14.5169752077379, -1.40404134882926, 5.91697520773788, - "FALSE", 3.06258786722021, 1, 0.377745220063787, -0.679804865526276, - 1.43529530565385, "Beer, Positive", "Water, Positive", 3.64999999999999, - 0.950172562866207, -6.5669752077379, 1.1918025402853, 13.8669752077379, - "FALSE", 2.34325584459239, 0.000293009660554563, 1.1435848443027, - 0.143343188082501, 2.1438265005229, "Beer, Positive", "Beer, Neutral", - 11.05, 0.000146504830277281, 3.33452659612508, 4.71566091491908, - 18.7654734038749, "FALSE", 3.32350744762006, 0.211308693316513, - 0.972823306465645, -0.266900906542999, 2.21254751947429, "Beer, Positive", - "Wine, Neutral", 9.4, 0.0704362311055042, -1.59721324755597, + refTable <- list("TRUE", 3.06258786722021, 1, -0.445014916787476, -1.50992951200853, + 0.619899678433579, "Beer, Positive", "Wine, Positive", 67.0001287304359, + -4.30000000000001, 0.824625255450164, -14.5169752077379, -1.40404134882927, + 5.91697520773788, "FALSE", 3.06258786722021, 1, 0.377745220063789, + -0.679804865526275, 1.43529530565385, "Beer, Positive", "Water, Positive", + 67.0001287304359, 3.65000000000001, 0.950172562866199, -6.56697520773788, + 1.19180254028531, 13.8669752077379, "FALSE", 2.34325584459239, + 0.000293009660554568, 1.1435848443027, 0.1433431880825, 2.1438265005229, + "Beer, Positive", "Beer, Neutral", 96.2693955821009, 11.05, + 0.000146504830277284, 3.33452659612507, 4.71566091491907, 18.7654734038749, + "FALSE", 3.32350744762006, 0.211308693316513, 0.972823306465645, + -0.266900906542999, 2.21254751947429, "Beer, Positive", "Wine, Neutral", + 82.6316535775855, 9.39999999999999, 0.0704362311055044, -1.59721324755597, 2.82833727564874, 20.397213247556, "FALSE", 3.32350744762006, - 8.80568662674528e-06, 1.93529742881995, 0.409715528435423, 3.46087932920448, - "Beer, Positive", "Water, Neutral", 18.7, 5.13665053226808e-06, - 7.70278675244403, 5.62658585687568, 29.697213247556, "FALSE", - 2.34325584459239, 8.29767861995479e-09, 1.71796456248188, 0.507729351375581, - 2.92819977358819, "Beer, Positive", "Beer, Negative", 16.6, - 6.68424111051914e-09, 8.88452659612507, 7.08416028847572, 24.3154734038749, - "FALSE", 3.32350744762006, 3.19971300390688e-14, 3.42040534879676, - 2.18858427557457, 4.65222642201896, "Beer, Positive", "Wine, Negative", - 33.05, 2.84418933680612e-14, 22.052786752444, 9.94431350640328, - 44.047213247556, "FALSE", 3.32350744762006, 1.52526279020822e-12, - 3.13062819367934, 1.82893799648637, 4.43231839087231, "Beer, Positive", - "Water, Negative", 30.25, 1.31342073601263e-12, 19.252786752444, + 8.80568662674528e-06, 1.93529742881995, 0.409715528435422, 3.46087932920448, + "Beer, Positive", "Water, Neutral", 82.6316535775855, 18.7, + 5.13665053226808e-06, 7.70278675244403, 5.62658585687568, 29.697213247556, + "FALSE", 2.34325584459239, 8.29767861995509e-09, 1.71796456248188, + 0.50772935137558, 2.92819977358819, "Beer, Positive", "Beer, Negative", + 96.2693955821009, 16.6, 6.68424111051938e-09, 8.88452659612505, + 7.08416028847571, 24.3154734038749, "FALSE", 3.32350744762006, + 3.19971300390688e-14, 3.42040534879676, 2.18858427557457, 4.65222642201895, + "Beer, Positive", "Wine, Negative", 82.6316535775854, 33.05, + 2.84418933680612e-14, 22.052786752444, 9.94431350640327, 44.0472132475559, + "FALSE", 3.32350744762006, 1.52526279020821e-12, 3.13062819367934, + 1.82893799648636, 4.43231839087231, "Beer, Positive", "Water, Negative", + 82.6316535775855, 30.25, 1.31342073601262e-12, 19.252786752444, 9.10183006259302, 41.247213247556, "TRUE", 3.06258786722021, - 0.417051696818704, 0.822760136851264, -0.303868326258607, 1.94938859996113, - "Wine, Positive", "Water, Positive", 7.95, 0.127432462916826, - -2.26697520773789, 2.59584388911457, 18.1669752077379, "FALSE", - 3.32350744762006, 0.000505451688385996, 1.58859976109018, 0.180635601431827, - 2.99656392074853, "Wine, Positive", "Beer, Neutral", 15.35, - 0.000238685519515609, 4.35278675244406, 4.61861459374555, 26.347213247556, - "FALSE", 2.34325584459239, 2.46937758318436e-06, 1.41783822325312, - 0.322906394249917, 2.51277005225633, "Wine, Positive", "Wine, Neutral", - 13.7, 1.57765790036778e-06, 5.98452659612508, 5.84656602121189, - 21.4154734038749, "FALSE", 3.32350744762006, 3.19644183160535e-08, - 2.38031234560743, 0.686268083845554, 4.07435660736931, "Wine, Positive", - "Water, Neutral", 23, 2.48612142458194e-08, 12.0027867524441, - 6.92039971701287, 33.997213247556, "FALSE", 3.32350744762006, - 5.19878021666088e-07, 2.16297947926936, 0.553344410866276, 3.77261454767245, - "Wine, Positive", "Beer, Negative", 20.9, 3.61026403934783e-07, - 9.90278675244405, 6.28853713415517, 31.897213247556, "FALSE", - 2.34325584459239, 3.3906654401086e-27, 3.86542026558424, 2.78364489877289, - 4.9471956323956, "Wine, Positive", "Wine, Negative", 37.35, - 3.3906654401086e-27, 29.6345265961251, 15.9393606490704, 45.0654734038749, - "FALSE", 3.32350744762006, 4.0893609820243e-15, 3.57564311046682, - 2.14086462895077, 5.01042159198286, "Wine, Positive", "Water, Negative", - 34.55, 3.74858090018894e-15, 23.5527867524441, 10.3956439227302, - 45.547213247556, "TRUE", 3.32350744762006, 1, 0.765839624238914, - -0.432192582952464, 1.96387183143029, "Water, Positive", "Beer, Neutral", - 7.40000000000002, 0.229581612565895, -3.59721324755594, 2.22656338721284, - 18.397213247556, "FALSE", 3.32350744762006, 1, 0.595078086401858, - -0.575242164605178, 1.76539833740889, "Water, Positive", "Wine, Neutral", - 5.75000000000001, 0.524074945350722, -5.24721324755595, 1.73009992925322, - 16.747213247556, "FALSE", 2.34325584459239, 1.82822037928189e-07, - 1.55755220875617, 0.41026074847123, 2.7048436690411, "Water, Positive", - "Water, Neutral", 15.05, 1.32038138503692e-07, 7.33452659612507, - 6.42268749045539, 22.7654734038749, "FALSE", 3.32350744762006, - 0.00710816778967513, 1.3402193424181, 0.00720948750754924, 2.67322919732865, - "Water, Positive", "Beer, Negative", 12.95, 0.00276428747376255, - 1.95278675244405, 3.89648592762247, 23.947213247556, "FALSE", - 3.32350744762006, 4.94431770017089e-12, 3.04266012873298, 1.87739405894888, - 4.20792619851708, "Water, Positive", "Wine, Negative", 29.4, - 4.12026475014241e-12, 18.4027867524441, 8.84607616000776, 40.397213247556, - "FALSE", 2.34325584459239, 6.66991226252023e-18, 2.75288297361555, - 1.83935544468238, 3.66641050254872, "Water, Positive", "Water, Negative", - 26.6, 6.48463692189467e-18, 18.8845265961251, 11.3517267273165, + 0.417051696818698, 0.822760136851265, -0.303868326258606, 1.94938859996114, + "Wine, Positive", "Water, Positive", 67.0001287304359, 7.95000000000002, + 0.127432462916824, -2.26697520773787, 2.59584388911457, 18.1669752077379, + "FALSE", 3.32350744762006, 0.000505451688386, 1.58859976109018, + 0.180635601431826, 2.99656392074853, "Wine, Positive", "Beer, Neutral", + 82.6316535775855, 15.35, 0.000238685519515611, 4.35278675244405, + 4.61861459374555, 26.347213247556, "FALSE", 2.34325584459239, + 2.46937758318438e-06, 1.41783822325312, 0.322906394249917, 2.51277005225632, + "Wine, Positive", "Wine, Neutral", 96.2693955821009, 13.7, 1.5776579003678e-06, + 5.98452659612507, 5.84656602121188, 21.4154734038749, "FALSE", + 3.32350744762005, 3.19644183160533e-08, 2.38031234560743, 0.686268083845553, + 4.0743566073693, "Wine, Positive", "Water, Neutral", 82.6316535775855, + 23, 2.48612142458192e-08, 12.002786752444, 6.92039971701287, + 33.997213247556, "FALSE", 3.32350744762006, 5.19878021666089e-07, + 2.16297947926936, 0.553344410866275, 3.77261454767244, "Wine, Positive", + "Beer, Negative", 82.6316535775855, 20.9, 3.61026403934784e-07, + 9.90278675244403, 6.28853713415517, 31.897213247556, "FALSE", + 2.34325584459239, 3.39066544010862e-27, 3.86542026558424, 2.78364489877288, + 4.94719563239559, "Wine, Positive", "Wine, Negative", 96.2693955821009, + 37.35, 3.39066544010862e-27, 29.6345265961251, 15.9393606490704, + 45.0654734038749, "FALSE", 3.32350744762005, 4.08936098202442e-15, + 3.57564311046681, 2.14086462895077, 5.01042159198286, "Wine, Positive", + "Water, Negative", 82.6316535775855, 34.55, 3.74858090018905e-15, + 23.552786752444, 10.3956439227302, 45.547213247556, "TRUE", + 3.32350744762006, 1, 0.765839624238912, -0.432192582952465, + 1.96387183143029, "Water, Positive", "Beer, Neutral", 82.6316535775855, + 7.4, 0.2295816125659, -3.59721324755597, 2.22656338721284, 18.397213247556, + "FALSE", 3.32350744762005, 1, 0.595078086401856, -0.575242164605179, + 1.76539833740889, "Water, Positive", "Wine, Neutral", 82.6316535775855, + 5.74999999999999, 0.524074945350727, -5.24721324755597, 1.73009992925321, + 16.7472132475559, "FALSE", 2.34325584459239, 1.82822037928195e-07, + 1.55755220875616, 0.410260748471228, 2.7048436690411, "Water, Positive", + "Water, Neutral", 96.2693955821009, 15.05, 1.32038138503697e-07, + 7.33452659612505, 6.42268749045538, 22.7654734038749, "FALSE", + 3.32350744762006, 0.00710816778967533, 1.34021934241809, 0.00720948750754768, + 2.67322919732864, "Water, Positive", "Beer, Negative", 82.6316535775855, + 12.95, 0.00276428747376263, 1.95278675244402, 3.89648592762246, + 23.9472132475559, "FALSE", 3.32350744762005, 4.94431770017114e-12, + 3.04266012873297, 1.87739405894887, 4.20792619851707, "Water, Positive", + "Wine, Negative", 82.6316535775855, 29.4, 4.12026475014262e-12, + 18.402786752444, 8.84607616000775, 40.3972132475559, "FALSE", + 2.34325584459239, 6.66991226252057e-18, 2.75288297361555, 1.83935544468237, + 3.66641050254872, "Water, Positive", "Water, Negative", 96.2693955821009, + 26.6, 6.48463692189499e-18, 18.8845265961251, 11.3517267273165, 34.3154734038749, "TRUE", 3.06258786722021, 1, -0.170761537837056, -1.21304210234721, 0.871519026673097, "Beer, Neutral", "Wine, Neutral", - -1.65000000000002, 1, -11.8669752077379, -0.538760052457745, - 8.56697520773787, "FALSE", 3.06258786722021, 0.538381439939075, + 67.0001287304359, -1.65000000000001, 1, -11.8669752077379, -0.538760052457743, + 8.56697520773788, "FALSE", 3.06258786722021, 0.538381439939072, 0.791712584517252, -0.328615669436179, 1.91204083847068, "Beer, Neutral", - "Water, Neutral", 7.64999999999998, 0.149550399983076, -2.56697520773791, - 2.49788751594043, 17.8669752077379, "FALSE", 2.34325584459239, - 0.714895488198306, 0.574379718179183, -0.276687012357518, 1.42544644871589, - "Beer, Neutral", "Beer, Negative", 5.54999999999999, 0.178723872049576, - -2.16547340387494, 2.36849937355663, 13.2654734038749, "FALSE", - 3.32350744762006, 1.21708122834007e-07, 2.27682050449406, 1.1446810293211, - 3.40895997966703, "Beer, Neutral", "Wine, Negative", 22, 9.12810921255052e-08, - 11.002786752444, 6.61951277279492, 32.9972132475559, "FALSE", - 3.32350744762006, 4.67520816749833e-06, 1.98704334937664, 0.859401431142084, - 3.11468526761119, "Beer, Neutral", "Water, Negative", 19.2, - 2.85707165791565e-06, 8.20278675244404, 5.77702932898466, 30.197213247556, - "TRUE", 3.06258786722021, 0.122628414872502, 0.962474122354309, - -0.194994185935976, 2.11994243064459, "Wine, Neutral", "Water, Neutral", - 9.3, 0.0442824831484033, -0.916975207737885, 3.03664756839817, - 19.5169752077379, "FALSE", 3.32350744762006, 1, 0.74514125601624, - -0.449198983578502, 1.93948149561098, "Wine, Neutral", "Beer, Negative", - 7.20000000000001, 0.232136379173532, -3.79721324755596, 2.16638599836925, - 18.197213247556, "FALSE", 2.34325584459239, 3.28810752994369e-15, - 2.44758204233112, 1.65290463197709, 3.24225945268515, "Wine, Neutral", - "Wine, Negative", 23.65, 3.10543488939126e-15, 15.9345265961251, - 10.0927946278585, 31.3654734038749, "FALSE", 3.32350744762006, - 5.55054933336568e-07, 2.15780488721369, 1.02299342575276, 3.29261634867463, - "Wine, Neutral", "Water, Negative", 20.85, 3.70036622224379e-07, - 9.85278675244406, 6.27349278694428, 31.847213247556, "TRUE", - 3.32350744762006, 1, -0.217332866338069, -1.35001992801137, - 0.915354195335231, "Water, Neutral", "Beer, Negative", -2.09999999999999, - 1, -13.097213247556, -0.631862582857695, 8.89721324755597, "FALSE", - 3.32350744762006, 0.00156701471652034, 1.48510791997681, 0.239587156715425, - 2.7306286832382, "Water, Neutral", "Wine, Negative", 14.35, - 0.000652922798550143, 3.35278675244405, 4.3177276495276, 25.347213247556, - "FALSE", 2.34325584459239, 0.000123837133230087, 1.19533076485938, - 0.316083837451252, 2.07457769226752, "Water, Neutral", "Water, Negative", - 11.55, 6.53584869825456e-05, 3.83452659612509, 4.92903923686112, - 19.2654734038749, "TRUE", 3.06258786722021, 3.8089199979706e-05, - 1.70244078631488, 0.584166390274611, 2.82071518235515, "Beer, Negative", - "Wine, Negative", 16.45, 2.11606666553922e-05, 6.23302479226211, - 5.37127446238171, 26.6669752077379, "FALSE", 3.06258786722021, - 0.00116683843484595, 1.41266363119745, 0.341980766799286, 2.48334649559562, - "Beer, Negative", "Water, Negative", 13.65, 0.000518594859931535, - 3.43302479226212, 4.45701497942312, 23.8669752077379, "TRUE", - 3.06258786722021, 1, -0.289777155117426, -1.3394573179511, 0.759903007716252, - "Wine, Negative", "Water, Negative", -2.79999999999999, 1, -13.0169752077379, - -0.914259482958587, 7.41697520773789) + "Water, Neutral", 67.0001287304359, 7.64999999999999, 0.149550399983076, + -2.5669752077379, 2.49788751594043, 17.8669752077379, "FALSE", + 2.34325584459239, 0.714895488198311, 0.574379718179182, -0.276687012357519, + 1.42544644871588, "Beer, Neutral", "Beer, Negative", 96.269395582101, + 5.54999999999999, 0.178723872049578, -2.16547340387495, 2.36849937355663, + 13.2654734038749, "FALSE", 3.32350744762006, 1.21708122834008e-07, + 2.27682050449406, 1.1446810293211, 3.40895997966702, "Beer, Neutral", + "Wine, Negative", 82.6316535775855, 22, 9.12810921255059e-08, + 11.002786752444, 6.61951277279491, 32.9972132475559, "FALSE", + 3.32350744762006, 4.6752081674984e-06, 1.98704334937664, 0.859401431142082, + 3.11468526761119, "Beer, Neutral", "Water, Negative", 82.6316535775854, + 19.2, 2.85707165791569e-06, 8.20278675244403, 5.77702932898465, + 30.197213247556, "TRUE", 3.06258786722021, 0.122628414872502, + 0.962474122354308, -0.194994185935976, 2.11994243064459, "Wine, Neutral", + "Water, Neutral", 67.0001287304359, 9.3, 0.0442824831484034, + -0.91697520773789, 3.03664756839817, 19.5169752077379, "FALSE", + 3.32350744762006, 1, 0.745141256016238, -0.449198983578502, + 1.93948149561098, "Wine, Neutral", "Beer, Negative", 82.6316535775855, + 7.19999999999999, 0.232136379173534, -3.79721324755597, 2.16638599836925, + 18.197213247556, "FALSE", 2.34325584459239, 3.28810752994383e-15, + 2.44758204233112, 1.65290463197708, 3.24225945268515, "Wine, Neutral", + "Wine, Negative", 96.2693955821009, 23.65, 3.10543488939139e-15, + 15.9345265961251, 10.0927946278585, 31.3654734038749, "FALSE", + 3.32350744762005, 5.55054933336582e-07, 2.15780488721369, 1.02299342575276, + 3.29261634867463, "Wine, Neutral", "Water, Negative", 82.6316535775855, + 20.85, 3.70036622224388e-07, 9.85278675244404, 6.27349278694428, + 31.847213247556, "TRUE", 3.32350744762006, 1, -0.21733286633807, + -1.35001992801137, 0.915354195335229, "Water, Neutral", "Beer, Negative", + 82.6316535775855, -2.1, 1, -13.097213247556, -0.631862582857698, + 8.89721324755596, "FALSE", 3.32350744762005, 0.00156701471652037, + 1.48510791997681, 0.239587156715423, 2.73062868323819, "Water, Neutral", + "Wine, Negative", 82.6316535775855, 14.35, 0.000652922798550152, + 3.35278675244404, 4.3177276495276, 25.347213247556, "FALSE", + 2.34325584459239, 0.000123837133230091, 1.19533076485938, 0.31608383745125, + 2.07457769226752, "Water, Neutral", "Water, Negative", 96.2693955821009, + 11.55, 6.53584869825479e-05, 3.83452659612507, 4.92903923686111, + 19.2654734038749, "TRUE", 3.06258786722021, 3.80891999797061e-05, + 1.70244078631488, 0.58416639027461, 2.82071518235515, "Beer, Negative", + "Wine, Negative", 67.0001287304359, 16.45, 2.11606666553923e-05, + 6.23302479226211, 5.37127446238171, 26.6669752077379, "FALSE", + 3.06258786722021, 0.00116683843484596, 1.41266363119745, 0.341980766799286, + 2.48334649559562, "Beer, Negative", "Water, Negative", 67.0001287304359, + 13.65, 0.000518594859931538, 3.43302479226212, 4.45701497942312, + 23.8669752077379, "TRUE", 3.06258786722021, 1, -0.289777155117425, + -1.3394573179511, 0.759903007716253, "Wine, Negative", "Water, Negative", + 67.0001287304359, -2.79999999999999, 1, -13.0169752077379, -0.914259482958586, + 7.4169752077379) table <- results[["results"]]$rmAnovaContainer$collection$rmAnovaContainer_postHocStandardContainer$collection[[2]]$data jaspTools::expect_equal_tables(table, refTable) @@ -841,24 +851,24 @@ test_that("Field - Chapter 8 results match", { # post hoc tests (bonferroni, confidence intervals, se not pooled) table <- results$results$rmAnovaContainer$collection$rmAnovaContainer_postHocStandardContainer$collection[[1]]$data - refTable <- list("TRUE", 0.811469126250126, 0.0121396972553231, 1.56917133617844, - -0.367925917593048, 3.50626858994993, "Stick", "Kangaroo", 3.875, - 0.0101164143794359, 0.924654528093316, 4.77528950227193, 6.82534547190668, - "FALSE", 0.7319250547114, 0.00564485983507569, 1.61978976637775, - -0.287731746731882, 3.52731127948737, "Stick", "Fish", 4, 0.00564485983507569, - 1.33886145376625, 5.46504040851178, 6.66113854623374, "FALSE", - 1.79222029098785, 1, 0.961750173786787, -1.83755985804869, 3.76106020562226, - "Stick", "Grub", 2.375, 0.906918466006363, -4.14116783575006, - 1.32517191772833, 8.89116783575006, "TRUE", 1.20174723988509, - 1, 0.0506184301993042, -1.71941068744157, 1.82064754784018, - "Kangaroo", "Fish", 0.124999999999999, 0.920074728368497, -4.24432153408686, - 0.104015217053423, 4.49432153408686, "FALSE", 1.33630620956212, - 1, -0.607421162391655, -2.66150784457404, 1.44666551979073, - "Kangaroo", "Grub", -1.5, 0.906918466006363, -6.35855203472909, - -1.12249721603218, 3.35855203472909, "TRUE", 1.82186619392628, - 1, -0.65803959259096, -3.41555353532226, 2.09947435014034, "Fish", - "Grub", -1.625, 0.906918466006363, -8.24895462968413, -0.891942561653215, - 4.99895462968413) + refTable <-list("TRUE", 0.811469126250126, 0.0121396972553231, 1.56917133617844, + -0.367925917593048, 3.50626858994993, "Stick", "Kangaroo", 7, + 3.875, 0.0101164143794359, 0.924654528093316, 4.77528950227193, + 6.82534547190668, "FALSE", 0.7319250547114, 0.00564485983507569, + 1.61978976637775, -0.287731746731882, 3.52731127948737, "Stick", + "Fish", 7, 4, 0.00564485983507569, 1.33886145376625, 5.46504040851178, + 6.66113854623374, "FALSE", 1.79222029098785, 1, 0.961750173786787, + -1.83755985804869, 3.76106020562226, "Stick", "Grub", 7, 2.375, + 0.906918466006363, -4.14116783575006, 1.32517191772833, 8.89116783575006, + "TRUE", 1.20174723988509, 1, 0.0506184301993042, -1.71941068744157, + 1.82064754784018, "Kangaroo", "Fish", 7, 0.124999999999999, + 0.920074728368497, -4.24432153408686, 0.104015217053423, 4.49432153408686, + "FALSE", 1.33630620956212, 1, -0.607421162391655, -2.66150784457404, + 1.44666551979073, "Kangaroo", "Grub", 7, -1.5, 0.906918466006363, + -6.35855203472909, -1.12249721603218, 3.35855203472909, "TRUE", + 1.82186619392628, 1, -0.65803959259096, -3.41555353532226, 2.09947435014034, + "Fish", "Grub", 7, -1.625, 0.906918466006363, -8.24895462968413, + -0.891942561653215, 4.99895462968413) jaspTools::expect_equal_tables(table, refTable)