#Beispiele aus dem Skript Kapitel Haeufigkeitsverteilungen

#Uebung 1:
BezugUeberstund = c(1,2,2,2,1,1,2,1,1,2,2,1,1,2,2,1,1)
BezugUS=as.data.frame(BezugUeberstund )
BezugUS$BezugUeberstund=as.factor(BezugUS$BezugUeberstund)
rm(BezugUeberstund)




#Uebung 2: 
AK= matrix(c(1,1,2,1,1,1,3,2,3,2,1,1,2,2,2,1,3,1,1,2,3,1,3,2,1,2),
byrow=T,ncol=2)
AK=as.data.frame(AK)
colnames(AK)=c("Augenf","Koerpgroe")



#Uebung 3: Anzahl Bueroraeume
Anzahl=c(1,1,1,2,2,2,3,3,3,3,4,4,4,4,4,5,5,5,6)
Bueroraeume=as.data.frame(Anzahl)
rm(Anzahl)



#Uebung 4: Schulnoten
noten=c(5.2,4.1,3.8,3.1,4.8,5.6,5.3,3.5,4.3,4.6,4.2,3.7,4.6,4.5)
Schulnoten=as.data.frame(noten)
rm(noten)


#Uebung 5: KoerperGroesse

Groesse=c(176.25,179.59,163.31,189.95,161.55,169.23,188.37,183.16,
178.41,190.11,183.14,171.65,179.31,175.57,180.03)
KG=as.data.frame(Groesse)
rm(Groesse)


#Uebung 6: Steuerbares Einkommen
Einkomm=c(5100,8155.2,9818.9,10491.3,15414.2,17927.5,18271.2,19116.2,20504.3,
22652.7,24256.4,24933.8,25165.6,25497,28259.1,28374.4,29005.2,30391.8,
32043,32790.8,33479.3,33574.7,34620.8,35007.3,35104.2,35134,35444,
35791,37068.6,38009.3,38023.1,38558.9,41378.4,41639.5,41923.3,44239.4,
44958.3,45663.2,45956.8,49524.6,50165.9,50651.5,53899.3,54790.3,64980.4,
142576.8,213860.7,523444.5,800433,1059815.1)
EinK=as.data.frame(Einkomm)
rm(Einkomm)


#relative und kumulative Haeufigkeitsverteilungen
Zufried=c(rep(1,5),rep(2,8),rep(3,4),rep(4,2))
zufr=as.data.frame(Zufried)
rm(Zufried)

#Eindimensionales Streudiagramm mit Körpergrössedaten KG; 
ls()

#empirische Verteilungsfunktin mit Körpergrössedaten KG