Oef - 9.4: ANOVA - Fietsdiefstallen naar gemeentetype

# ============================================================================
# OEFENING 9.4: ANOVA - Fietsdiefstallen naar gemeentetype
# ============================================================================
# Gegevens: 30 Belgische gemeenten (10 per type), jaar 2008
# Bereken ALLE tussenstappen met de hand (rekenmachine mag).
# Vul je eindresultaten in (vervang alle ???).
# Gebruik decimalen met PUNT (niet komma).
# ============================================================================

# De data (ter referentie):
# Grootsteden:      3500, 2700, 2900, 3200, 3150, 3300, 2650, 4000, 3500, 3000
# Middelgrote st.:  1850, 1650, 1450, 1600, 1550, 1800, 1400, 1750, 1250, 1500
# Rurale gem.:       400,  450,  500,  550,  390,  530,  410,  440,  570,  600

# ----------------------------------------------------------------------------
# DEEL A: BESCHRIJVENDE STATISTIEKEN
# ----------------------------------------------------------------------------

# 1) Gemiddelde fietsdiefstallen - Grootsteden (geheel getal)
gemiddelde_groot <- ???

# 2) Gemiddelde fietsdiefstallen - Middelgrote steden (geheel getal)
gemiddelde_middel <- ???

# 3) Gemiddelde fietsdiefstallen - Rurale gemeenten (geheel getal)
gemiddelde_ruraal <- ???

# 4) Grand mean - gemiddelde over alle 30 gemeenten (2 decimalen)
grand_mean <- ???


# ----------------------------------------------------------------------------
# DEEL B: BINNENGROEPSVARIATIE (SSwithin)
# ----------------------------------------------------------------------------
# Formule per groep: SSg = som van (xi - x̄g)²

# 5) SS within - Grootsteden (geheel getal)
SS_within_groot <- ???

# 6) SS within - Middelgrote steden (geheel getal)
SS_within_middel <- ???

# 7) SS within - Rurale gemeenten (geheel getal)
SS_within_ruraal <- ???

# 8) Totale SS within = som van de drie SS-waarden (geheel getal)
SS_within <- ???

# 9) Vrijheidsgraden within: df_within = N - k  (N=30 gemeenten, k=3 groepen)
df_within <- ???

# 10) MS within = SS_within / df_within (2 decimalen)
MS_within <- ???


# ----------------------------------------------------------------------------
# DEEL C: TUSSENGROEPSVARIATIE (SSbetween)
# ----------------------------------------------------------------------------
# Formule: SS_between = som van n_g * (x̄g - grand_mean)²

# 11) Totale SS between (2 decimalen)
SS_between <- ???

# 12) Vrijheidsgraden between: df_between = k - 1
df_between <- ???

# 13) MS between = SS_between / df_between (2 decimalen)
MS_between <- ???


# ----------------------------------------------------------------------------
# DEEL D: F-TOETS EN EFFECTGROOTTE
# ----------------------------------------------------------------------------

# 14) F-ratio = MS_between / MS_within (2 decimalen)
F_ratio <- ???

# 15) Eta-kwadraat: η² = SS_between / SS_total (4 decimalen)
#     SS_total = SS_between + SS_within
eta_kwadraat <- ???

# 16) Is het effect statistisch significant bij α = 0.05?
#     Kritieke F-waarde bij df(2,27) en α=0.05 ≈ 3.35
#     1 = ja, 2 = nee
significant_anova <- ???
Je kunt zo vaak indienen als je wenst. Er wordt enkel rekening gehouden met je laatst ingediende oplossing.