# Aufgabe 1 data <- read.table("C://schweiz.txt", header = T) attach(data) # a) schweiza <- glm(Teilnahme ~ 1 + Alter + Bildung + JKinder + AKinder + Herkunft, family = binomial("logit")) summary(schweiza) # b) schweizb <- glm(Teilnahme ~ 1 + Alter + Bildung + JKinder + AKinder + Herkunft + I(Alter^2), family = binomial("logit")) summary(schweizb) # d) schweizd <- glm(Teilnahme ~ 1 + Alter, family = binomial("logit")) anova(schweizd, schweiza, test = "Chisq") # e) schweize <- glm(Teilnahme ~ 1 + Alter + Bildung + JKinder + AKinder, family = binomial("logit")) anova(schweize, schweiza, test = "Chisq")