#Chiquadrattest (Beispiel 1 der Exceltabelle) zwei Variablen
#mit zwei Auspraegungen;
#Geschlecht (Frauen 1, Maenner 2)	Raucher (Raucher 1, Nichtraucher 2)	
GeRauch=data.frame(matrix(c(
  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,
  1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
  2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2),
  byrow=T,ncol=2))
names(GeRauch)=c("Geschlecht","Rauchverhalten")



################################################################
#Beispiel 2
##Intensitaet von Gruppenarbeiten (1 hoch, 2 mittel, 3 gering)	Arbeitsklima (1 verbessert; 2 unveraendert; 3 verschlechtert)
#Wie verhaelt sich das Arbeitsklima bezueglich Intensitaet von Gruppen
#Arbeiten?
GruppKlima=data.frame(matrix(c(
  1,2,1,1,1,1,1,1,1,2,1,2,2,3,2,1,3,1,1,1,2,2,1,3,2,1,2,2,1,1,2,1,2,1,2,2,2,1,1,2,2,1,1,1,1,1,3,1,3,1,1,2,2,1,1,1,3,2,2,1,2,2,1,3,1,1,2,2,1,3,1,3,1,1,2,2,1,1,2,1,3,2,
  1,1,3,2,3,3,1,2,3,2,2,2,2,3,1,2,1,2,2,2,2,2,2,2,1,1,3,3,1,1,3,2,2,2,3,1,3,1,1,2,1,2,3,3,1,1,1,2,3,3,3,1,1,2,3,1,3,2,1,3,1,3,1,1,1,2,1,1,1,1,1,1,1,1,2,1,3,2,1,1,1,1,1,1,1,1,2,1,
  1,3,1,1,1,1,1,1,2,1,2,1,1,1,3,1,3,3,2,1,1,1,1,2,3,3,1,1,1,3,1,2,1,1,1,1,1,2,1,2,1,1,1,1,2,1,3,3,1,1,3,2,1,2,1,2,2,1,3,2,3,2,1,1,2,2,1,1,1,2,1,1,2,2,1,2,1,3,3,1,1,2,2,2,1,3,1,1,
  2,1,1,2,1,2,1,1,1,1,1,1,1,1,3,2,3,2,3,2,2,2,1,1,2,1,1,2,1,2,1,2,3,1,1,2,1,1,1,2,3,1,3,1,1,1,2,2,1,1,1,1,1,2,2,2,1,1,2,1,3,1,2,2,1,1,2,2,2,3,1,1,3,3,1,2,1,2,2,3,2,1,1,1,1,2,2,2,2,3,
  1,2,1,3,1,1,1,1,1,1,1,1,1,1,2,2,1,1,2,2,2,1,1,1,1,1,2,3,3,3,3,2,1,3,1,3,2,2,1,1,2,2,3,1,2,1,1,1,3,2,2,2,1,1,2,1,2,1,3,2,1,1,3,2,1,1,3,2,2,1,1,2,1,2,3,2,3,3,1,1,1,1,1,1,1,2,3,3,2,2,2,1,
  2,2,3,2,1,1,3,1,2,3,3,2,1,1,1,1,3,2,3,2,2,1,2,2,1,2,2,2,3,3,1,1,1,1,1,1,3,2,2,2,1,3,3,1,1,1,1,1,2,1,3,2,2,1,1,1,1,1,1,1,1,1,1,1,2,2,3,2,2,2,1,1,1,2,1,1,1,3,2,2,1,1,2,1,2,1,3,2,2,2,
  1,1,1,1,3,2,2,2,3,2,3,3,2,1,3,1,1,1,3,2,1,2,1,1,2,2,1,1,1,2,2,2,1,1,1,1,1,1,1,2,1,3,1,1,3,2,1,1,2,1,1,1,3,1,1,2,3,2,2,1,2,2,2,2,2,2,1,3,1,2,1,1,3,1,1,2,2,1,3,2,1,1,3,2,1,2,2,2,3,3,1,1,3,1,
  2,2,3,2,2,1,1,1,1,2,1,1,2,3,2,2,2,1,2,1,3,2,2,1,3,3,2,1,2,1,1,1,1,2),
  byrow=T,ncol=2))
names(GruppKlima)=c("GruppenArb","AKlima")
GruppKlimaT=table(GruppKlima$GruppenArb,GruppKlima$AKlima)
rownames(GruppKlimaT)=c("hoch", "mittel","gering")
colnames(GruppKlimaT)=c("verbessert","unveraendert","verschlechtert")



#Residuenanalyse mit den Ergebnissen von Chi-Quadrat-Test.
######################################
#Uebung 3
#Lassen sich bezueglich der Einstellung zum Produkt Gruppen bilden? Uebung 3 des Skripts
#Geschlecht (1 Maenner; 2 Frauen),
#Alter (1: < 20; 2: 21 - 35; 3: 36 - 50; 4: 51 - 65; 5 > 66),
#Einstellung (1 positive; 2 negative),
#Wohnort (1 Land; 2 Stadt; 3 Agglomeration)
EinProd=data.frame(matrix(c(
  1,5,2,1,2,5,2,1,1,4,2,1,2,4,1,1,2,3,2,1,2,2,2,3,2,5,2,3,1,1,2,1,1,1,1,3,1,2,2,3,2,2,2,3,1,1,2,3,2,2,1,2,1,3,2,2,1,3,2,2,1,4,1,2,1,5,2,2,1,1,2,3,1,3,1,2,1,2,2,3,1,3,2,3,2,2,2,2,1,3,2,3,2,4,2,3,2,5,2,2,2,3,1,2,2,4,1,3,2,2,2,2,2,5,2,2,1,1,2,3,1,3,2,3,1,3,1,3,2,3,2,2,1,4,1,2,2,5,2,1,1,5,2,1,2,3,2,2,1,3,2,2,1,2,2,1,1,2,1,1,1,1,1,3,1,5,2,2,2,4,1,3,1,1,2,2,
  1,5,2,3,1,2,2,3,1,3,2,1,2,2,2,1,2,4,2,1,1,3,2,2,2,5,2,1,2,1,2,1,2,2,1,1,2,3,2,1,1,4,1,1,2,2,2,2,1,1,2,1,2,2,2,2,2,3,2,2,2,2,1,2,2,3,2,2,1,2,2,2,2,3,2,2,1,1,2,2,2,1,2,1,1,5,2,1,2,5,2,1,1,5,2,1,2,4,2,2,1,5,2,3,1,4,2,3,1,5,2,3,1,4,2,2,2,5,1,3,1,4,2,2,2,5,2,3,1,3,1,2,2,4,2,3,1,5,1,2,2,4,2,3),
  byrow=T,ncol=4))
names(EinProd)=c("Geschl","Alter","Einstell","Wohnort")
Ge_Ein=table(EinProd$Geschl,EinProd$Einstell)
colnames(Ge_Ein)=c("pos","neg")
rownames(Ge_Ein)=c("mann","frau")


#######################################################################################################
#Uebung 4
#Unterschieden sich Maenner und Frauen nach Altersklassen in ihrer Einstellung?
#Geschlecht und Alter (Junge Frauen 1, Andere Frauen 2, Junge Maenner 3, Andere Maenner 4),
#Einstellung (dafuer 1, eher dafuer 2, weiss nicht 3, eher dagegen 4, dagegen 5),

GAEin=data.frame(matrix(c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,3,1,3,1,3,1,3,1,3,1,3,1,3,
1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,5,1,5,1,5,1,5,1,5,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,
2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,
2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,5,
2,5,2,5,2,5,2,5,2,5,2,5,2,5,2,5,2,5,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,
3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,
3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,4,3,4,3,4,3,4,3,5,3,5,3,5,3,5,3,5,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,
4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,
4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,3,4,3,4,3,4,3,4,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,5,4,5,4,5,4,5,4,5,4,5,4,5,4,5,4,5,4,5),
byrow=T,ncol=2))
names(GAEin)=c("Geschl_Alter","Einstell")



##########################################################################################################
#Uebung 5
#Passt die Stichprobe zu den Populationsanteilen? 
#Anteile: 
popan=matrix(c(0.05,	0.15,	0.2,
0.2,	0.03,	0.235,
0.1,	0.025,	0.01),ncol=3,byrow=T) 
popan1=c(0.05,	0.15,	0.2,0.2,	0.03,	0.235,0.1,	0.025,	0.01)
#Alter (1 < 30; 2 31 - 50; 3 > 51),Wohnort (1 Stadt; 2 Aglo; 3 Land)
AnteilPop=data.frame(matrix(c(2,1,1,1,1,1,3,1,1,2,3,2,3,1,2,2,1,3,1,2,2,2,1,2,1,3,3,1,3,2,3,2,3,1,3,3,1,3,1,3,1,3,1,1,3,3,3,1,3,1,3,2,3,2,3,2,3,1,3,2,3,3,3,2,3,3,2,3,2,3,2,1,1,2,3,2,1,1,
                              1,3,1,2,3,3,2,1,3,3,2,3,3,3,3,1,3,3,3,2,3,1,3,1,1,2,2,1,3,3,1,3,3,1,3,2,3,3,3,1,1,3,2,1,3,3,3,2,1,2,3,3,3,3,3,2,2,3,1,2,1,3,3,1,3,2,3,1,1,1,1,3,1,2,3,2,3,2,1,3,3,1,3,3,3,1,3,1,2,3,
                              1,3,2,1,3,3,3,1),
                            byrow=T,ncol=2))
names(AnteilPop)=c("Alter","Wohnort")