### Aufgabe 3 ###
InfectionType_bi<-rep(1,length(InfectionType))
InfectionType_bi[InfectionType=="none"]<-0
A3_mo<-glm(InfectionType_bi~Planned+Antibiotics,family="binomial")
summary(A3_mo)