### Vorlesung 11.1. Statistik 1 ### 
setwd("c:/D/Lehre/Stat1_1516/R_Beispiele/Daten")
load("zeitung.Rdata")
plot(zeitung$AUFL1000,zeitung$FAM,ylab="Auflage in 1000",
     xlab="Festangestellte Mitarbeiter")
mod1<-lm(FAM~AUFL1000,data=zeitung)
summary(mod1)
abline(mod1)
cor(zeitung$AUFL1000,zeitung$FAM)