#GLM-oring: Oring daten bearbeitet mit Logit-Model
oring<-read.table("D:/Programme/R/R-Programme/oring.R") #Anpassen!
print(oring)
#Umbenennen, weil im dataframe in prediction die $-notation nicht funktioniert#
oring.defekt<-oring$defekt
oring.temp<-oring$temp
erg.glm<-glm(oring.defekt~oring.temp,family=binomial(link=logit))
print(summary(erg.glm))
plot(oring$temp,oring$defekt)
lines(sort(oring$temp),erg.glm$fitted[order(oring$temp)])
pred.frame<-data.frame(oring.temp=35:45)
vorhersage<-predict(erg.glm,newdata=pred.frame,type="response")
print(vorhersage)