##################################################################################################
### Aufgabe 1 ###
##################################################################################################
ah<-c(29,587,4,76,33,251,33,541)
opf<-as.factor(c(rep("nw",4),rep("w",4)))
tae<-as.factor(rep(c("nw","nw","w","w"),2))
tu<-as.factor(rep(c("ja","nein"),4))

#### Aufgabe 1 ####
A1_a<-glm(ah~tu*tae,family=poisson)
A1_b<-glm(ah~tu*opf,family=poisson)
A1_c<-glm(ah~opf*tae+tu*opf+tu*tae,family=poisson)
summary(A1_c)
anova(A1_c)

#### Aufgabe 3 ####
A3_m3<-glm(cbind(ah[tu=="ja"],ah[tu=="nein"])~opf[tu=="ja"]+tae[tu=="ja"],family=binomial)
summary(A3_m3)
anova(A3_m3)