daten <- read.table("C:\\Dokumente und Einstellungen\\Wolfgang\\Desktop\\challenger.txt", header=TRUE)
attach(daten)
names(daten)

glm.challenger <- glm(Ausfall ~ 1+Temperatur, family=binomial(link="logit"))
summary(glm.challenger)

# Prognose der Ausfallwahrscheinlichkeit bei 31°F
exp(15.0429-0.2322*31)/(1+exp(15.0429-0.2322*31))