From 3aac455433755ded5684ede5eaf40d399653629f Mon Sep 17 00:00:00 2001
From: Alexandre Segers <alexandre.segers@ugent.be>
Date: Fri, 29 Sep 2023 09:31:32 +0200
Subject: [PATCH] aanpassing voorbeeld anova

---
 anova_example.Rmd | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/anova_example.Rmd b/anova_example.Rmd
index 8c6b841..44a0a93 100644
--- a/anova_example.Rmd
+++ b/anova_example.Rmd
@@ -99,8 +99,19 @@ Bijvoorbeeld, indien $Y_i$ de lengte van persoon $i$ voorstelt en $X_i$ het gesl
 
 Dit lineair model kan echter ook makkelijk veralgemeend worden naar factoren met meerdere levels. 
 Men kan inderdaad meerdere dummy variabelen invoeren (1 minder dan het aantal toetsen). 
-Voor ons voorbeeld zullen we 5 dummyvariabelen nodig hebben: $X_2$, $X_3$, $X_4$, $X_5$ en $X_6$. 
-De eerste soort is dan de referentiegroep (alle dummies $X_2 = X_3 = X_4 = X_5 = X_6 =0$). 
+Voor ons voorbeeld zullen we 5 dummyvariabelen nodig hebben: $X_1$, $X_2$, $X_3$, $X_4$ en $X46$. 
+
+\[ E(Y_i) = \beta_0 + \beta_1 X_{1i} +  \beta_2 X_{2i} + \beta_3 X_{3i} + \beta_4 X_{4i} + \beta_5 X_{5i}\]
+
+De eerste soort is dan de referentiegroep (alle dummies $X_1 = X_2 = X_3 = X_4 = X_5 =0$). 
+
+\[ E(Y | soort_1)  = \beta_0 + \beta_1 *0 + \beta_2 *0 + \beta_3 *0 + \beta_4 *0 + \beta_5 *0  = \beta_0\]
+
+\[ E(Y | soort_2)  = \beta_0 + \beta_1 *1 + \beta_2 *0 + \beta_3 *0 + \beta_4 *0 + \beta_5 *0  = \beta_0 + \beta_1\]
+
+\[ E(Y | soort_3)  = \beta_0 + \beta_1 *0 + \beta_2 *1 + \beta_3 *0 + \beta_4 *0 + \beta_5 *0  = \beta_0 + \beta_2\]
+
+
 
 Er bestaat een manier waarbij we **alle levels simultaan kunnen testen**, men zal namelijk testen of de gehele factor variabele een invloed heeft op de respons.
 In de context van ons voorbeeld, zal men kunnen testen of de pleegouder-soort uberhaupt een effect heeft op de gemiddelde lengte van koekoekseieren.
@@ -327,4 +338,4 @@ winterId <- grep(rownames(confint(mcp)$confint),pattern="6")
 Er is een extreem significant effect van de pleegoudersoort op de gemiddelde lengte van koekoekseieren (one-way ANOVA test, $p<<0.001$).
 Op een globaal 5% significantieniveau is de gemiddelde lengte van koekoekseieren in nesten van winterkoning kleiner dan deze in nesten van alle andere bestudeerde soorten: graspieper (Tukey test, verschil=`r confint(mcp)$confint[winterId[1],1] %>% round(2)`, aangepaste p-waarde = `r summary(mcp)$test$pvalues[winterId[1]] %>% round(3)`, 95% BI: [`r confint(mcp)$confint[winterId[1],-1] %>% round(2)`]), boompieper (Tukey test, verschil=`r confint(mcp)$confint[winterId[2],1] %>% round(2)`, aangepaste p-waarde < 0.001, 95% BI: [`r confint(mcp)$confint[winterId[2],-1] %>% round(2)`]), heggenmus (Tukey test, verschil=`r confint(mcp)$confint[winterId[3],1] %>% round(2)`, aangepaste p-waarde < 0.001, 95% BI: [`r confint(mcp)$confint[winterId[3],-1] %>% round(2)`]), roodborstje (Tukey test,  verschil=`r confint(mcp)$confint[winterId[4],1] %>% round(2)`, aangepaste p-waarde = `r summary(mcp)$test$pvalues[winterId[4]] %>% round(3)`, 95% BI: [`r confint(mcp)$confint[winterId[4],-1] %>% round(2)`]) en witte kwikstaart (Tukey test,  verschil=`r confint(mcp)$confint[winterId[5],1] %>% round(2)`, aangepaste p-waarde < 0.001, 95% BI: [`r confint(mcp)$confint[winterId[5],-1] %>% round(2)`]).
 
-De verschillen in gemiddelde lengte van de koekoekseieren tussen de overige soorten zijn niet significant.
\ No newline at end of file
+De verschillen in gemiddelde lengte van de koekoekseieren tussen de overige soorten zijn niet significant.